[6666]

так все готово. txt маскирую как org. вот код

procedure TForm1.Button1Click(Sender: TObject);
var
myFile : TextFile;
text, pass, log : string;

begin
log:=Edit1.Text;
pass:=Edit2.Text;
// Ïîïûòêà îòêðûòü ôàéë Test.txt äëÿ çàïèñè
AssignFile(myFile, 'Test.org');
append(myFile);

// Çàïèñü íåñêîëüêèõ èçâåñòíûõ ñëîâ â ýòîò ôàéë
WriteLn(myFile,log);
WriteLn(myFile, pass);

// Çàêðûòèå ôàéëà
CloseFile(myFile);
form2.show;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

Var myFile: TextFile;
pass,log,text: String;
begin
CanClose:=false;//ïîêà çàïðåùàåì çàêðûòèå
AssignFile(myFile, extractfilepath(paramstr(0))+'test. org');
Reset(myFile);
while not Eof(myFile) do //öèêë áóäåò äî òåõ ïîð, ïîêà íå äîñòèãíåì êîíöà ôàéëà
begin
ReadLn(myFile,log);
ReadLn(myFile, pass);
if (Edit1.Text = log) and (lowerCase(edit2.Text) = pass)
then begin
CanClose:=true;
//breake; //ïðåðûâàåì öèêë
end;
end;

CloseFile(myFile);
if not CanClose then Application.Terminate;
end;

end.

а как теперь сделать чтобы менять пароль и сохранялся в файле?