Исправить код

[nikita197919]

вот у меня останавливается тут(где помечено красным)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg;

type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Width:=51;
Height:=21;
Left:=100;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:Integer;
h:THandle;
begin
Visible:=true;
Top:^Screen.Height-Height;
Left:=1;
h:=CreateEvent(nil, true,false, 'et'];
for i:=1 to 80 do
begin

Top:=Screen.Height-Height-i*5;
Repaint;
WaitForSingleObject(h,15);
end;
for i::=80 downto 1 do
begin
Top:=Screen.Height-Height-.!*5;
Repaint;
WaitForSingleObject(h,15) ;
end;
Closehandle(h);
Visible:=false;
end;
end;
end;

[FedyaDanilov]

Там ещё есть ошибки :)
Исправил, всё компилится :)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg;

type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Width:=51;
Height:=21;
Left:=100;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var i:Integer;
h:THandle;
begin
Top:=Screen.Height-Height-5;
Visible:=true;
Left:=1;
h:=CreateEvent(nil, true,false, 'et');
for i:=1 to 80 do
begin

Top:=Screen.Height-Height-i*5;
Repaint;
WaitForSingleObject(h,15);
end;
for i:=80 downto 1 do
begin
Top:=Screen.Height-Height-5;
Repaint;
WaitForSingleObject(h,15) ;
end;
Closehandle(h);
Visible:=false;
end;
end.

[Artes102rus]

ты var забыл написал напиши перед переменной var и все

[Dimedrol1536]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
В место begin пропищи var.