var Form1: TForm1; Center:integer; implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject); begin Image1.Top:=0; Center:=(Self.Height-Image1.Height) div 2; end;procedure TForm1.Timer1Timer(Sender: TObject); begin if Image1.Top<Center then Image1.Top:=Image1.Top+2; end;
Form1: TForm1;
Center:integer;
implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Top:=0;
Center:=(Self.Height-Image1.Height) div 2;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Image1.Top<Center then
Image1.Top:=Image1.Top+2;
end;