Coś mi nie wychodzi

unit Unit2;

interface

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

type
TForm2 = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
ok: TButton;
ListBox1: TListBox;
GroupBox2: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
SpeedButton1: TSpeedButton;
Timer1: TTimer;
CheckBox4: TCheckBox;
procedure okClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
zmienna: Integer= 111111;
implementation

{$R *.dfm}

procedure TForm2.okClick(Sender: TObject);
begin
if Edit1.Text=Edit2.Text then
begin
ListBox1.Clear;
ListBox1.Items.Add(Edit1.Text);
Edit1.Clear;
Edit2.Clear;
Form2.Close;
end
else
begin
ShowMessage('Źle wprowadzone dane') ;
Edit1.Clear;
Edit2.Clear;
end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ListBox1.Items.SaveToFile('c:\2786.txt');

end;

procedure TForm2.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('c:\2786.txt');

end;

procedure TForm2.CheckBox1Click(Sender: TObject);

var
Reg : TRegistry; // deklaruj zmienna dla klasybegin
begin
Reg := TRegistry.Create; // stworz zmienna
Reg.RootKey:=HKEY_CURRENT_USER;
try
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', True); // utworz katalog
Reg.WriteBinaryData('iii',zmienna,1111);
finally
Reg.Free; // zwolnij klase
end;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
Reg : TRegistry; // deklaruj zmienna dla klasybegin
begin
if CheckBox1.Checked= true then
begin
Reg := TRegistry.Create; // stworz zmienna
Reg.RootKey:=HKEY_CURRENT_USER;
try
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', True); // utworz katalog
Reg.WriteBinaryData('iii',zmienna,1111);
finally
Reg.Free; // zwolnij klase
end
else
ShowMessage('hih');
end;

end.

CO TUTAJ JEST ŹLE????? [cya]

To zależyy od tego, co ten kod ma robić, i od tego, jaki komunikat pokazuje, więc może byś się podzielił tymi informacjami, bo nie każdemu chce się całość czytać.

no walsnie, btw wywal te try finnaly i po begin

jest end else a nie samo else (nio chyba ze jestem slepy i to tam gdzies jest )