[Alegun]

Код:

...
var
 i: integer;
begin
 StringGrid2.RowCount:= 1;
 StringGrid2.Rows[0].Text:= 'ФИО' + #13#10 + 'Вид оплаты';
 for i:= 1 to sg.RowCount-1 do
  if sg.Cells[4,i] = 'Кредит' then
   begin
    StringGrid2.Rows[StringGrid2.RowCount].Text:=
    sg.Cells[0,i] + #13#10 + sg.Cells[4,i];
    StringGrid2.RowCount:= StringGrid2.RowCount+1;
   end;
end;
...