Творит чудеса!!!

[Nibelyng]

Здравствуйте уважаемые знатоки, я новичек в делфи, осваиваю его только второй день и у меня возникли трудности с условием.
вот код:

procedure TForm1.btn1Click(Sender: TObject);
 var SaveTxt:TStringList;
      iterIntCount:integer;
      LogAndPass:string;
begin
  SaveTxt:=TStringList.Create;
  SaveTxt.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'userbd.txt');

        LogAndPass:=edt1.Text+' '+edt2.Text;

  for iterIntCount:=0 to SaveTxt.Count -1 do
      begin
        if LogAndPass = SaveTxt[iterIntCount] then
        begin
          ShowMessage('вход');
          fEditor.ShowModal;
        end
         else   showMessage('Ошибка, проверьте данные или зарегистрируйтесь');  // проблема тут
                end
      end;

Почему-то выдает вначале ее, а только потом уже сообщение о том, что вы успешно вошли. Дипломный проект, обидно когда вот так вот получается.

[Streletz]

Творит чудеса!!!

В данном случае нет никаких чудес.
Просто сообщение об удачном или неудачном входе в систему нужно выводить не во время проверки логина и пароля (как сейчас сделано у Вас), а после её завершения.

[Nibelyng]

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

В данном случае нет никаких чудес.
Просто сообщение об удачном или неудачном входе в систему нужно выводить не во время проверки логина и пароля (как сейчас сделано у Вас), а после её завершения.

Спасибо за совет, сделал маленько по-другому