procedure TForm1.Button1Click(Sender: TObject);
var
x, y: integer;
begin
for y := 0 to StringGrid1.RowCount - 1 do
for x := 0 to StringGrid1.ColCount - 1 do
StringGrid1.Cells[x, y] := '';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x, y: integer;
begin
for y := 0 to StringGrid1.RowCount - 1 do
begin
for x := 0 to StringGrid1.ColCount - 1 do
begin
StringGrid1.Cells[x, y] := '';
end;
end;
end;