[Des]

Собственно сабж, каждую ячейку нужно поочередно записать в файл через ; не переходя на следующую строку.

[Страдалецъ]

Если я правильно понял, то так наверное:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var Row,Col: Integer;
    f: TextFile;
begin
 AssignFile(f, 'c:\Longline.txt');
 Rewrite(f);
 for Row := StringGrid1.FixedRows to StringGrid1.RowCount - 1
 do for Col := StringGrid1.FixedCols to StringGrid1.ColCount - 1
    do begin
       if (Row = StringGrid1.FixedRows) and (Col = StringGrid1.FixedCols)
       then Write(f, StringGrid1.Cells[Col, Row])
       else Write(f, ';'+StringGrid1.Cells[Col, Row]);
       end;
 CloseFile(f);
end;