Не могу найти ошибку

[proxex]

Объясните что ему не нравиться?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
  i:integer;
  massages:array[0..7] of Pchar;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ShellExecute (Application.Handle, 'open','c:\windows\notepad.exe',nil,nil,SW_MAXIMIZE);
 i := 0;
 messages[0] := 'Просто любой текст.';
 messages[1] := 'Просто любой текст.';
 messages[2] := 'Просто любой текст.';
 messages[3] := 'Просто любой текст.';
 messages[4] := 'Просто любой текст.';
 messages[5] := 'Просто любой текст.';
 messages[6] := 'Просто любой текст.';
 messages[7] := 'Просто любой текст.';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 wnd:hwnd;
begin
wnd:=findwindow(nil,'Диспетчер задач Windows');
if (wnd<> 0) then
begin
sendmessage(wnd, wm_destroy,0,0);
end;
BlockInput (true);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
wnd,wnd1:hwnd;
dc:hdc;
j:integer;
begin
wnd:=findwindow(nil,'Безымянный - Блокнот');
if wnd <> 0 then begin
wnd1:= FindwindowEx (wnd, 0, 'Edit', nil);
dc:=getdc(wnd1);
for j := 0 to length(messages[i]) do
begin
textout(dc,1,i*15,messages[i],j);
sleep(100);
end;
Timer2.Interval :=5000;
inc(i);
if i > 5 then
begin
Timer2.Enabled :=false;
sendmessage(wnd, wm_destroy,0,0);
BlockInput (false);
Form1.Close;
end;
end;

end;

end.

[Serge_Bliznykov]

ну, для начала опечатка:

private
  i:integer;
  massages:array[0..7] of Pchar;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
 ShellExecute (Application.Handle, 'open','c:\windows\notepad.exe',nil,nil,SW_MAXIMIZE);
 i := 0;
 messages[0] := 'Просто любой текст.';

[proxex]

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

ну, для начала опечатка:

Спасибо!!! вот же я баран.. такую ошибку допустил...=)

[IHaveAPussy]

А можешь объяснить для чего твой код используется?)
Я новичок, пытаюсь понять.