Usando arquivo *ini

//Inclua a unit IniFiles na clausula uses do seu form.
Procedure TForm1.GravaIni( Numero : Longint ; Texto : String ; Condicao : Boolean);
varArqIni : TIniFile;

begin

ArqIni := TIniFile.Create('c:\windows\temp\Teste.Ini');

Try

ArqIni.WriteInteger('Dados', 'Numero', Numero);

ArqIni.WriteString('Dados', 'Texto', Texto);

ArqIni.WriteBool('Dados', 'Condição', Condicao);

Finally

ArqIni.Free;

end;

end;

Procedure TForm1.LeIni( Var Numero : Longint ; Var Texto : String ; Var Condicao : Boolean);

varArqIni : tIniFile;

begin

ArqIni := tIniFile.Create('c:\windows\temp\Teste.Ini');

Try

Numero := ArqIni.ReadInteger('Dados', 'Numero', Numero );

Texto := ArqIni.ReadString('Dados', 'Texto', Texto );

Condicao := ArqIni.ReadBool('Dados', 'Condição', Condicao );

Finally

ArqIni.Free;

end;

end;// Utilize as procedures assim:

procedure TForm1.Button1Click(Sender: TObject);

beginGravaIni(1234,'TESTE',True);

end;

procedure TForm1.Button2Click(Sender: TObject);

varN: Integer;

T: String;

C: Boolean;

beginLeIni(N,T,C);

Showmessage(IntToStr(N)+' '+T);

end;