Сохранение и загрузка, импорт и экспорт

Code:

var:

myStream: TFileStream;

begin

myStream1 := TFileStream.Create('grid1.sav', fmCreate);

myStream1.WriteComponent(StringGrid1);

myStream1.Destroy;

end;

//Для обратного чтения:

myStream    := TFileStream.Create('grid1.sav', fmOpenRead);

StringGrid1 := myStream1.ReadComponent(StringGrid1) as TStringGrid;