[Помогите!] Исправить код

[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]

Цитата: Сообщение от nikita197919 procedure TForm1.Timer1Timer(Sender: TObject); begin

В место begin пропищи var.