[Chuwis720]

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

Так ещё можно попробовать:

Код:

//запись
procedure TForm1.Button1Click(Sender: TObject);
Var
 S: String[32];
 F: TFileStream;
begin
 S:= Edit1.Text;
 F:= TFileStream.Create('1.trololo', fmCreate);
 F.Write(s, 32);
 F.Free;
end;
//чтение
procedure TForm1.Button2Click(Sender: TObject);
Var
 S: String[32];
 F: TFileStream;
begin
 F:= TFileStream.Create('1.trololo', fmOpenRead);
 F.Position:= 0;
 F.Read(S, 32);
 Edit1.Text:= S;
 F.Free;
end;

Вот это, кажется, помогает... Только смущает то, что 1.trololo довольно легко открывается и просматривается блокнотом... С этим ничего нельзя сделать?