[Alegun]

Сообщение от nikotan

и ещё проблема выявилась, вот в edit1 ввёл цифру "9", потом изменил на 7 (например), закрыл программу, на следующий день открыл и по идее должно быть "7", как сделать чтоб эта цифра оставалась всегда в памяти где-то?

Это как раз не проблема, трабла в том, что вы, увж. топикстартер ни фига не читали ПФ, а там есть такое правило "вылитое в граните": один вопрос - одна тема, пжлст, прочитайте.

Ну так уж и быть, в порядке последнего исключения приведу пример схорона содержимого едита на диске

Код:

const fn: string = 'Edit1.wrc';
...

procedure TForm1.FormCreate(Sender: TObject);
var
  FStr: TFileStream;
  MemStr: TMemoryStream;
begin
 if FileExists(fn) then
   begin
    FStr:= TFileStream.Create(fn, fmOpenRead);
    MemStr:= TMemoryStream.Create;
    ObjectTextToBinary(FStr, MemStr);
    MemStr.Position:= 0;
    MemStr.ReadComponent(Edit1);
    MemStr.Free;
    FStr.Free;
   end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  FStr: TFileStream;
  MemStr: TMemoryStream;
  begin
  FStr:= TFileStream.Create(fn, fmCreate);
  MemStr:= TMemoryStream.Create;
  MemStr.WriteComponent(Edit1);
  MemStr.Position:= 0;
  ObjectBinaryToText(MemStr, FStr);
  MemStr.Free;
  FStr.Free;
end;