[wymkent]

авторизация пользователя так сказать=)
когда ввожу правильный логин пароль все работает а когда не правильный ничего не происходит

Код:

procedure TForm9.Button1Click(Sender: TObject);
var savetxt:TStringList;
    iterintcount:integer;

    logpas:string;
    begin
savetxt:=TStringList.Create;
savetxt.LoadFromFile(ExtractFilePath(application.ExeName)+'Пароль.txt');

   logpas:=edit1.Text+' '+edit2.Text;

for iterintcount:=0 to savetxt.Count -1 do
begin
   if logpas=savetxt[iterintcount] then
   begin
   showmessage('Првильно');
   edit1.Clear;
   edit2.Clear;
     end

   else
      //showmessage('Пароль или логин введен не верно!');
   end;

//showmessage('Пароль или логин введен не верно!'); когда убираю (//) все запускается ввожу пароль логин первый showmessage говорит все верно жму ок и тут же появляется второй showmessage в котором написано что пароль или логин не верный.......