Координаты формы при различном разрешении экрана

[Fataller]

Всем большое спасибо, изменил я по вашим советам, работает. Большое спасибо. А еще такой вопрос. Я меняю свойство Interval в таймере, а почему то длительность смены строк на форме не меняется. Думал что кажется, но нет, довел вроде как до максимума, но все равно.

[Fataller]

По поводу таймера - стояло 1000 по умолчанию, затем поставил 100000 - разницы нет. Может быть сделать, чтобы через раз менялись строки?

[Fataller]

procedure TForm4.Timer1Timer(Sender: TObject);
begin
Rand_of_str(mass_of_dates,numb_of_s tr);
end;

procedure Rand_of_str(mass_of_dates:array of string; numb_of_str:integer);
var
i:integer;
length_str:integer;
begin
i:=Random(numb_of_str);
length_str:=Form3.Canvas.TextWidth( mass_of_dates[i]);
Form3.Width:=length_str;
Form3.Left:=Screen.Width-Form3.Width;
Form3.Label1.Caption:=mass_of_dates[i];
end;

Вот так. Randomize() в обработчике создания формы. По моему строчки меняются одинаково, ну на глаз нет разницы.

[Fataller]

А в обработчике таймера что прописать?