удаление строк stringgrida

[postman]

здравствуйте , возникла такая проблема , есть три stringgrid они синхронизированы , т.е . одинаковое количество строк , скроллятся одновременно , так вот мне нужно реализовать процедуру удаления строк , я пробовал вручную удалять и перемещать строки , также пробовал обращаться к методам предка tcustomgrid , второй метод менее глючный ,, но при обоих методах при удалении последних двух строк происходит сбой , строка удаляется , но при ещё одном удалении удаляются все строки до 6.Даже есть идея добавлять две невидимых строки в конце , но возникли сложности со свойством visiblerow.


procedure TMainForm.DeleteStringSelectCell(Se nder: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
var //удаление строк
I,j: Integer;
begin
if maingrid.RowCount>7 then
begin
for I := 0 to 6 do
maingrid.Cells[i,arow]:='';
TFakeGrid(maingrid).DeleteRow(arow) ;
indexgrid.RowCount:=indexgrid.RowCo unt-1;
deletestring.RowCount:=deletestring .RowCount-1;
end
else
for I := 0 to 6 do
maingrid.Cells[i,arow]:='';

maingrid.SetFocus;
end;

[Delphi_ProGer]

На ваш вопрос я не отвечу, но интересно, зачем така конструкция?

TFakeGrid(maingrid).DeleteRow(arow) ;

[postman]

для удаления строки стринггрида , только сначала обьявляю :


Type
TFakeGrid=class(TCustomGrid);

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