Координаты в Делфи

[anymol]

Как узнать координаты левого верхнго угла в форме делфи?
Я хочу сделать что бы при запуске формы окно в делфи не просто открывалось, а как бы выдвигалось со стороны.
Как я понимаю это нужно сделать при помощи цыкла, но как замутить функцыю для того что бы найти координаты угла.

[AVer]

Form1.Left - Координата Х
Form1.Top - Координата Y

[anymol]

Несрабатывает
При указании стартовых координат оно выдаёт ошибку ((

[AVer]

Где? Напиши код.

[Terran]

Так же вы можете поставить на форму таймер и сделать так:

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Form1.Left:=Form1.Left+2;
Form1.Top:=Form1.Top+2;
If Form1.Left=250 Then
Begin
Timer1.Enabled:=False;
End;
End;

[mihali4]

procedure TForm1.FormCreate(Sender: TObject);
begin
Left:=-Width;
Top:=10;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
while Left<10 do
begin
Left:=Left+2;
Application.ProcessMessages;
end;
end;