[Janom]

вот процедура:

Код:

procedure sgRowDelete(Const SG:TStringGrid; Const NumDelRow:Cardinal);
var i:integer;
begin
for i:=NumDelRow to SG.RowCount-1 do
  begin
    if i<SG.RowCount-1 then
      SG.Rows[i].text:=SG.Rows[i+1].Text
      else SG.RowCount:=SG.RowCount-1;
  end;
end;

Вот ее вызов:

Код:

sgRowDelete(StringGrid1,1{номер удаляемой строки});