Дождаться завершения работы процедуры

[Shouldercannon]

Доброго времени суток!
Есть код

unit Unit1;
...
type
  // Поток для авторизации
  TLogin_Thread = class(TThread)
  private
    { Private declarations }
    s, Nick: string;
    B: Boolean;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;

var
  FormMain: TFormMain;
  Login_Thread: TLogin_Thread;

implementation

{$R *.dfm}

procedure TFormMain.Login;
var
  s: string;
begin
  s := ENick.Text;
  if s = '' then s := 'TNewUser';

  Login_Thread := TLogin_Thread.Create(True);
  Login_Thread.Nick := s;
  Login_Thread.FreeOnTerminate := True;
  Login_Thread.Resume;
end;

procedure TLogin_Thread.Execute;
var
  HTTP: TIdHTTP;
  Data: TIdMultiPartFormDataStream;
begin
  B := True;

  try
    HTTP := TIdHTTP.Create(nil);
    Data := TIdMultiPartFormDataStream.Create;
    try
      Data.AddFormField('nick', AnsiToUtf8(Nick));
      s := HTTP.Post('http://192.168.0.2/si/login.php', Data);
    except
      B := False;
    end;
  finally
    FreeAndNil(Data);
    FreeAndNil(HTTP);
  end;

  Synchronize(SyncProc);

  Terminate;
end;

procedure TLogin_Thread.SyncProc;
var
  UserID, LoginStatus, AdminFlags: string;
begin
  if B then
  begin
    UserID := Copy(s, 1, Pos('~', s) - 1);
    Delete(s, 1, Pos('~', s));
    LoginStatus := Copy(s, 1, Pos('~', s) - 1);
    Delete(s, 1, Pos('~', s));
    AdminFlags := s;

    MessageBox(0, PChar(UserID + #13#10 + LoginStatus + #13#10 + AdminFlags), '.!.', MB_ICONInformation);
  end
  else FormMain.TimerAuthorization.Enabled := True;
end;

procedure TFormMain.TimerAuthorizationTimer(Sender: TObject);
begin
  TimerAuthorization.Enabled := False;
  Login;
end;

procedure TFormMain.Button1Click(Sender: TObject);
begin
  Login;
  ShowMessage('Ready!');
end;

end.

При нажатии на Button1 нужно дождаться завершения работы процедуры Login и вывести Ready!.
Такое реально?

[Человек_Борща]

1. сделать её функцией.
2. Добавить call-back-событие, которое произойдет из метода и сигнализирует, что процесс завершен:

type
  TCallBackProc = procedure(aResult:Integer) of object;

procedure ProcWithCB(a,b:real; const aCallback:TCallBackProc  = nil);
begin

//В нужный момент 
if assigned(aCallback) then
aCallback(100500);
end;

[Аватар]

Thread.WaitFor;
...
FreeAndNil(Thread);

и FreeOnTerminate должно быть False
call-back не поможет

Terminate какой смысл из потока вызывать? Этот метод просто в Terminated True присваивает

[evg_m]

При нажатии на Button1 нужно дождаться завершения работы процедуры Login и вывести Ready!.
Такое реально?

Особенно если перефразировать это так.
при нажатии запустить процедуру(поток) авторизации и по завершении оного вывести данные о результатах.

procedure TFormMain.Button1Click(Sender: TObject);
begin
  Login; //запустили и почти-что забыли о нем
end;

procedure TFormMain.Login;
var
  s: string;
begin
  s := ENick.Text;
  if s = '' then s := 'TNewUser';

  Login_Thread := TLogin_Thread.Create(True);
  Login_Thread.Nick := s;
  Login_Thread.FreeOnTerminate := True;
  Login_Thread.Onterminate:=self.SetLoginState; //как только закончишь сделай это ("пришли" пожалйста результат)!
  Login_Thread.Resume;
end;

procedure TformMain.SetLoginState(sender: TObject);
begin // ну наконец-то ты нам "прислал" результат
  if (Sender as TLogin_Thread). ... <здесь мы проверяем каковы результаты>  then 
   showMessage('ура!)
  else  
   ShowMessage('увы....');
end;