Hangman Igra

[ OrdeB @ 13.11.2003. 22:25 ] @

Zdravo na site
naidon na eden problem pisuvajci igra besilka.
Nov sum vo Delphi pa ne znam sto mi e problemot pa resiv da ve prasam dokolku mozete da mi pomognite.
Pred se fala.
Eve go kodot:

Code:
  const
         dcrta = '_';
         mesto = ' ' ;
var
  Form1: TForm1;
  pateka:string;
  prilap:string;
  dzbor:string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
pateka:=ExtractFileDir(Application.ExeName);
glava.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'glava.bmp');
DRaka.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'desnaraka.bmp');
DNoga.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'desnanoga.bmp');
LRaka.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'levaraka.bmp');
LNoga.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'levanoga.bmp');
telo.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'telo.bmp');
prilap:='Prilapon';
for i:=0 to length(prilap) do begin
dzbor:=dzbor + mesto + dcrta ;
end;
zbor.Caption:=dzbor;

end;

procedure TForm1.Button1Click(Sender: TObject);
var a:char;
    i:integer;
begin
a:='a';
for i:=1 to length(prilap) do begin
if a = prilap[i] then begin
dzbor[i]:=a;
zbor.Caption:=dzbor[i] + mesto + dcrta
else
dnoga.Visible:=false;
end;

end.

i mi dava greska

Code:
'END' expected but 'ELSE' found
';' expected but '.' found
'Declaration expected but end of file found'

Probav i drugi kombinacii no sepak imam greska.
Moze Li nekoj da mi pomogne ?? ?
Fala
Pozdravi Orde