[konsul_81]

тоже да не совсем, тут завязка на TStringList.

вот что то на ваял

Код:

procedure TmainF.FillGrid(Lst: TStringList);
begin
  DrawGrid1.RowCount := L.Count+1;
  DrawGrid1.ColCount := 2;
  DrawGrid1.Refresh;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
L: TStringList;
begin

  if (DrawGrid1.RowCount <= 2) then // оставляем строку №1, чтобы не потерять Фиксированной(строка № 0)
 L.Clear ;// очищаем  строку №1 
 L.Delete(DrawGrid1.Row - 1);
  FillGrid(L);
end;

вроде все правильно, но по почему то выдает ошибку

---------------------------
Project1
---------------------------
List index out of bounds (0)
---------------------------
ОК
---------------------------

помогите пожалуйста с разрешением этой проблемы