[borockov]

Проблема решена=)
Если кому то надо держите

Сохранение:

Код:

procedure TForm5.Button1Click(Sender: TObject);
var i,j:integer;
    sl:TStringList;
    str:string;
begin
 sl:=TStringList.Create;
 sl .Add(IntToStr(StringGrid1.RowCount)+#9+ IntToStr(StringGrid1.ColCount));
 for i:=0 to StringGrid1.RowCount-1 do
 begin
  str:='';
  for j:=0 to StringGrid1.ColCount-1 do
  str:=str+StringGrid1.Cells[j,i]+#9;
  sl.Add(Str);
 end;
// Сохраняем содержимое списка строк в файле
sl.SaveToFile('sostav\'+form3.dbedit1.text+'.txt');
sl .Free;
end;

Открытие:

Код:

var
sl:TStringList;
i,j:Integer;
Str, CellText:String;
begin
 sl:=TStringList.Create;
 sl.LoadFromFile('d:\1.txt');
 Str:=sl[0];
 i:=StrToInt(copy(Str,1,pos(#9,Str)-1));
 StringGrid1.RowCount:=i;
 Delete(Str,1,pos(#9,Str));
 StringGrid1.ColCount:= StrToInt(Str);
 for i:=1 to sl.Count-1 do
 begin
  Str:=sl[i];
  j:=0;
  while Length(Str)>0 do
  begin
   CellText:=copy(Str,1,pos(#9,Str)-1);
   StringGrid1.Cells[j,i-1]:=CellText;
   Delete(Str,1,pos(#9,Str));
   inc(j);
  end;
 end;
sl.Free;

Код вырезал из исходника какого то найденнго на просторах инета=)