Caça palavras com contador e tempo

[Guest --Jair --]

Oi pessoal,sou inicante em Delphi e estou construíndo um programinha caça palavras.Até aí tudo bem,mas eu quero agora,que a cada jogada do particpante ele começe a contar,tipo quantas tentativas ele já fez.Exemplo: Ele começou a jogar e ganhou,então o programa vai mostrar que ele já tem 1 ponto,e quanto mais ele joga e ganha mais pontos ele vai fazendo.Caso ele desista na terceira rodada por exemplo,acumule a quantidade de pontos que ele fez no total.

E outra,como eu psso colocar um cronometro pra que ele veja o tempo que ele fez a palavra?

Eu fiz até aqui por enquanto:

public

r:string;

nv:byte

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.sairClick(Sender: TObject);

begin

close;

end;

procedure TForm1.desistirClick(Sender: TObject);

begin

if messagedlg('Tem certeza que deseja desistir',mtinformation,[mbyes,mbno],0)=mryes then

begin

procurar.Enabled:=false;

desistir.Enabled:=false;

efetivar.Enabled:=true;

edit1.Clear;

edit1.SetFocus;

b1.visible:=false;

b2.visible:=false;

b3.visible:=false;

b4.visible:=false;

b5.visible:=false;

b6.visible:=false;

b7.visible:=false;

b8.visible:=false;

b9.visible:=false;

b10.visible:=false;

edit1.ReadOnly:=false;

end;

end;

procedure TForm1.efetivarClick(Sender: TObject);

var c:byte;

begin

if (length(edit1.text)>0) and (length(edit1.text)<=10) then

begin

edit1.ReadOnly:=true;

efetivar.Enabled:=false;

procurar.Enabled:=true;

desistir.Enabled:=true;

c:=length(edit1.text);

case c of

1:b1.visible:=true;

2:begin

b1.visible:=true;

b2.visible:=true;

end;

3:begin

b1.visible:=true;

b2.visible:=true;

b3.visible:=true;

end;

4:begin

b1.visible:=true;

b2.visible:=true;

b3.visible:=true;

b4.visible:=true;

end;

5:begin

b1.visible:=true;

b2.visible:=true;

b3.visible:=true;

b4.visible:=true;

b5.visible:=true;

end;

6:begin

b1.visible:=true;

b2.visible:=true;

b3.visible:=true;

b4.visible:=true;

b5.visible:=true;

b6.visible:=true;

end;

7:begin

b1.visible:=true;

b2.visible:=true;

b3.visible:=true;

b4.visible:=true;

b5.visible:=true;

b6.visible:=true;

b7.visible:=true;

end;

8:begin

b1.visible:=true;

b2.visible:=true;

b3.visible:=true;

b4.visible:=true;

b5.visible:=true;

b6.visible:=true;

b7.visible:=true;

b8.visible:=true;

end;

9:begin

b1.visible:=true;

b2.visible:=true;

b3.visible:=true;

b4.visible:=true;

b5.visible:=true;

b6.visible:=true;

b7.visible:=true;

b8.visible:=true;

b9.visible:=true;

end;

10:begin

b1.visible:=true;

b2.visible:=true;

b3.visible:=true;

b4.visible:=true;

b5.visible:=true;

b6.visible:=true;

b7.visible:=true;

b8.visible:=true;

b9.visible:=true;

b10.visible:=true;

end;

end;

edit2.setfocus;

end

else

begin

showmessage('É preciso digitar uma palavra ou verificar se a palavra excede 10 letras!');

edit1.clear;

edit1.setfocus;

end;

end;

procedure TForm1.procurarClick(Sender: TObject);

var p,t:string;

x,y,achei:byte;

v:boolean;

begin

v:=false;

achei:=0;

p:=edit1.text;

t:=edit2.text;

if r<>'' then

for x:=1 to length® do

if r[x]=t then

v:=true;

if v=false then

begin

for y:= 1 to length(p) do

if p[y]=t then

case y of

1:begin

b1.caption:=t;

inc(nv);

end;

2:begin

b2.caption:=t;

inc(nv);

end;

3:begin

b3.caption:=t;

inc(nv);

end;

4:begin

b4.caption:=t;

inc(nv);

end;

5:begin

b5.caption:=t;

inc(nv);

end;

6:begin

b6.caption:=t;

inc(nv);

end;

7:begin

b7.caption:=t;

inc(nv);

end;

8:begin

b8.caption:=t;

inc(nv);

end;

9:begin

b9.caption:=t;

inc(nv);

end;

10:begin

b10.caption:=t;

inc(nv);

end;

end;

r:=r+t;

edit2.clear;

edit2.setfocus;

end

else

begin

showmessage('Essa letra já foi procurada!');

edit2.clear;

edit2.setfocus;

end;

for y:=1 to length(p)do

if p[y]=t then

inc(achei);

if achei=0 then

begin

showmessage('Essa letra não consta nessa palavra!');

edit2.clear;

edit2.setfocus;

end;

if nv=length(p) then

begin

showmessage('Parabéns você acertou a palavra!');

procurar.Enabled:=false;

desistir.Enabled:=false;

efetivar.Enabled:=true;

edit1.Clear;

edit1.SetFocus;

b1.visible:=false;

b2.visible:=false;

b3.visible:=false;

b4.visible:=false;

b5.visible:=false;

b6.visible:=false;

b7.visible:=false;

b8.visible:=false;

b9.visible:=false;

b10.visible:=false;

edit1.ReadOnly:=false;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

r:='';

nv:=0;

end;

end.

Muito Obrigado quem puder me ajudar.

Qualquer coisa meu email jbispo_bispo@hotmail.com