Edit1 wyświetlić ilość liczb...

Wylosować liczby od -5 do 5 do stringgrid 4w/5k (to mam)
W Edit1 wyświetlić ilość liczb równych elementowi ze stringgridu1 o współrzędnych [0,0]

Nie mam pojęcia jak zrobić to drugie zdanie, a mam mało czasu. Znalazłby się ktoś, kto by mi pomógł wpisać komendy do Edita? Byłbym bardzo wdzięczny.

procedure TForm3.Button2Click(Sender: TObject);
var x,k,w: Integer;
begin
end; 

Z góry przepraszam za trywialne pytania.

x:=0;with stringgrid1 do for k:=0 to ColCount-1 do for r:=0 to RowCount-1 do if Cells[0,0]=Cells[k,r] then Inc(x);

pelsta napisał(a):

x:=0;with stringgrid1 do for k:=0 to ColCount-1 do for r:=0 to RowCount-1 do if Cells[0,0]=Cells[k,r] then Inc(x);

Dzięki, to powinno pomóc.