Выбор информации в StringGrid

[Lemo]

1) На счет флага

begin
  if (pos(kom1,StringGrid2.Cells[2,j])>0) and (pos(kom2,StringGrid2.Cells[2,j])>0) then
   begin

Его где то тут нужно вставить?

2) Удаление ЖК и Угл

 j:=1;
 while j<StringGrid1.RowCount-1 do
 begin
 If Stringgrid1.cells[2,j] КАК тут поставить єто условие then
  begin
  Tgr(StringGrid1).DeleteRow(j);
  dec(j);
  end;
 inc(j);
 end;

[Sazary]

Его где то тут нужно вставить?

Да, сразу после бегина. Вроде

flag := true;

И потом при выводе проверять.

Удаление ЖК и Угл

Pos'ом ищи )

if pos('ЖК ',Stringgrid1.cells[2,j]) then ....