[The Shadow]

Сообщение от Phedor

Сдвиг в цикле в потоке.

Код:

procedure TForm1.FormShow(Sender: TObject);
procedure MoveUp;
begin
  while not Application.Terminated do
  begin
    Form1.Image1.Top:=Form1.Image1.Top - 1;
    Sleep(100);
  end;
end;
var
  ThreadId: Cardinal;
begin
  CreateThread(nil, 0, @MoveUp, nil, 0, ThreadId);
end;