procedure TForm1.Button1Click(Sender: TObject);
var x,y : integer;
begin
x := StringGrid1.RowCount; // satır sayısını al
y := StringGrid1.ColCount; // kolon sayısını al
Randomize; // çalkala :D
x := Random(x); // x değerine kadar bir rastgele sayı ver
y := Random(y); // y değerine kadar bir rastgele sayı ver
Caption := Format('x : %d - y : %d', [x,y]); // formun başlık çubuğuna yaz.
if StringGrid1.Cells[y,x] = '' then // alınan değerler boş ise
begin
StringGrid1.Cells[y,x] := Edit1.Text; // alınan değerlerdeki hücreye editteki yazıyı yaz
{THE} end;
end;
(