arkadaşlar proje odevim program kodu elimde var ama hazırlayamıyorum yardımcı olursanız sevinirim şimdiden tşk ederim

Kod:
unit Unit1;

interface

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

const
uyu = 100;
type
TForm1 = class(TForm)
ksol: TImage;
kort2: TImage;
kort1: TImage;
ksag: TImage;
Sonsol1: TImage;
SonSol2: TImage;
SonSag1: TImage;
SonSag2: TImage;
Button1: TButton;
SolLamba: TImage;
SagLamba: TImage;
Puan1: TPanel;
Puan2: TPanel;
MainMenu1: TMainMenu;
Oyun1: TMenuItem;
BilgisayaraKar1: TMenuItem;
kiKii1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ksolDblClick(Sender: TObject);
procedure ksagDblClick(Sender: TObject);
procedure BilgisayaraKar1Click(Sender: TObject);
procedure kiKii1Click(Sender: TObject);
private

Dizi:array[1..52] of integer;
DiziSol:array[1..26] of integer;
DiziSag:array[1..26] of integer;
DiziOrta:array[1..2] of integer;
procedure Ata;
public

end;

var
Form1: TForm1;

implementation





procedure TForm1.Ata;
var
i,j,Sayi : integer;
begin
//Diziyi, aynı olmayacak şekilde 52 ye kadar sayılarla doldur.
for i:=1 to 52 do
begin
Sayi:=Random(52]1;
j:=i;
while j > 0 do
begin
if Sayi = Dizi[j] then
begin
Sayi := Random(52]1;
j:=i;
continue;
end;
dec(j);
end;
Dizi[i]:=Sayi;
end;
//Sol ve sağ kart dizilerine atama yap
j:=0;
for i:=1 to 52 do
begin
if i < 27 then
DiziSol[i] := Dizi[i]
else
begin
inc(j);
DiziSag[j] := Dizi[i];
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
Mainmenu1.Tag := 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Ata;
Puan1.Tag := 0;
Puan2.Tag := 0;
Puan1.Caption := '0';

Puan2.Caption := '0';
ksol.Picture.LoadFromFile('zem in.bmp');
ksag.Picture.LoadFromFile('zem in.bmp');
kort1.Picture.LoadFromFile('bo sz.bmp');
kort2.Picture.LoadFromFile('bo sz.bmp');
Sonsol1.Picture := nil;
Sonsol2.Picture := nil;
Sonsag1.Picture := nil;
Sonsag2.Picture := nil;

SolLamba.Picture.LoadFromFile( 'lambaon.bmp');
SagLamba.Picture.LoadFromFile( 'lambaoff.bmp');
kSol.Tag := 0;
kSag.Tag := 0;
DiziOrta[1] := 0;DiziOrta[2] := 0;
SolLamba.Tag := 1;
SagLamba.Tag := 0;
end;

procedure TForm1.ksolDblClick(Sender: TObject);
begin
if SolLamba.Tag 1 then exit;
ksol.Tag := ksol.Tag + 1;
if ksol.Tag > 26 then
begin
ksol.Picture.LoadFromFile('bos z.bmp');
if Puan1.Tag > Puan2.Tag then ShowMessage('Bilgisayar aptaldır.');
if Puan1.Tag < Puan2.Tag then ShowMessage('Kim aptalmış soyle şimdi !');
exit;
end;
kort2.Picture := kort1.Picture;
kort1.Picture.LoadFromFile(Int ToStr(DiziSol[ksol.Tag]]'.bmp');
DiziOrta[1] := DiziSol[ksol.Tag];

if DiziOrta[2] 0 then
if (DiziOrta[1] in [DiziOrta[2], DiziOrta[2]+13,DiziOrta[2]+26,DiziOrta[2]+39]) or
(DiziOrta[1] in [DiziOrta[2]-13,DiziOrta[2]-26,DiziOrta[2]-39]) then
begin
Sonsol1.Picture := kort1.Picture;
Sonsol2.Picture := kort2.Picture;
DiziOrta[1] := 0; DiziOrta[2] := 0;
kort1.Picture.LoadFromFile('bo sz.bmp');
kort2.Picture.LoadFromFile('bo sz.bmp');

case DiziOrta[1] of
1,14,27,40,41: Puan1.Tag := Puan1.tag + 12;
10: Puan1.Tag := Puan1.tag + 13;
12,25,38,51:Puan1.Tag := Puan1.tag + 22;
else
Puan1.Tag := Puan1.tag + 10;
end;
Puan1.Caption := IntToStr(Puan1.Tag);
end;
SolLamba.Picture.LoadFromFile( 'lambaoff.bmp');
SagLamba.Picture.LoadFromFile( 'lambaon.bmp');
SolLamba.Tag := 0;
SagLamba.Tag := 1;
SolLamba.*******;
SagLamba.*******;
if MainMenu1.Tag = 1 then
begin
sleep(uyu);
ksagDblClick(self);
end;
end;

procedure TForm1.ksagDblClick(Sender: TObject);
begin
if SagLamba.Tag 1 then exit;
ksag.Tag := ksag.Tag + 1;
if ksag.Tag > 26 then
begin
ksag.Picture.LoadFromFile('bos z.bmp');
if Puan1.Tag > Puan2.Tag then ShowMessage('Bilgisayar aptaldır.');
if Puan1.Tag < Puan2.Tag then ShowMessage('Kim aptalmış soyle şimdi !');
exit;
end;
kort2.Picture := kort1.Picture;
kort1.Picture.LoadFromFile(Int ToStr(DiziSag[ksag.Tag]]'.bmp');
DiziOrta[2] := DiziSag[ksag.Tag];

if DiziOrta[1] 0 then
if (DiziOrta[1] in [DiziOrta[2], DiziOrta[2]+13,DiziOrta[2]+26,DiziOrta[2]+39]) or
(DiziOrta[1] in [DiziOrta[2]-13,DiziOrta[2]-26,DiziOrta[2]-39]) then
begin
SonSag1.Picture := kort1.Picture;
SonSag2.Picture := kort2.Picture;
DiziOrta[1] := 0; DiziOrta[2] := 0;
kort1.Picture.LoadFromFile('bo sz.bmp');
kort2.Picture.LoadFromFile('bo sz.bmp');
case DiziOrta[2] of
1,14,27,40,41: Puan2.Tag := Puan2.tag + 12;
10: if (DiziOrta[1] = 10) or (DiziOrta[2] = 10) then Puan2.Tag := Puan2.tag + 13;
12,25,38,51:Puan2.Tag := Puan2.tag + 22;
else
Puan2.Tag := Puan2.tag + 10;
end;
Puan2.Caption := IntToStr(Puan2.Tag);

end;
SolLamba.Picture.LoadFromFile( 'lambaon.bmp');
SagLamba.Picture.LoadFromFile( 'lambaoff.bmp');
SolLamba.Tag := 1;
SagLamba.Tag := 0;
if MainMenu1.Tag = 1 then
sleep(uyu);
end;

procedure TForm1.BilgisayaraKar1Click(Se nder: TObject);
begin
Mainmenu1.Tag := 1;
end;

procedure TForm1.kiKii1Click(Sender: TObject);
begin
Mainmenu1.Tag := 0;
end;

end.
__________________