procedure TForm1.Button1Click(Sender : TObject);
var
  Thrd : TThread;
begin
  Thrd := TThread.CreateAnonymousThread(
    procedure
    begin
      Sleep(10000);
    end
  );


  Thrd.Start;

  // Yukarıdaki thread kendi içinde 10 sn bekliyor. Biz de tam bu nokta da yukarıdaki thread'in bitmesini bekleyeceğiz. Ama nasıl ;-)

  AnaThreadDonmadanBuradaYukaridakiThreadiBekleyelim;

  Memo1.Lines.Add('Thread bitti');
end;

procedure TForm1.Button1Click(Sender : TObject);
Var
 xDurum : boolean;
 Thrd   : TThread;
begin
 Thrd := TThread.CreateAnonymousThread(
   procedure
   begin
     Sleep(10000);
     TThread.Synchronize ( TThread.CurrentThread,
                             procedure ()
                             begin
                               xDurum := True;
                             end
                         );
   end
 );

 Thrd.Start;
 while NOT xDurum do
 begin
   Application.ProcessMessages;
 end;

 // Yukarıdaki thread kendi içinde 10 sn bekliyor. Biz de tam bu nokta da yukarıdaki thread'in bitmesini bekleyeceğiz. Ama nasıl ;-)
//AnaThreadDonmadanBuradaYukaridakiThreadiBekleyelim;
 Memo1.Lines.Add('Thread bitti');
end;

(30-04-2018, Saat: 09:25)mrmarman Adlı Kullanıcıdan Alıntı: Merhaba.

Aklıma direkt anonim thread nasıl syncronize edilir sorusu geliyor. 
Dolayısıyla bir thread'e göre global ama procedure içerisine yerleşik bir boolean değişken koyup bunun true veya false durumuna göre bir While NOT degisken şeklinde bir döngüde Application.ProcessMessages döngüsü gibi geliyor. Sonra da geriye kalan bu değişkeni thread ile senkron etmek.

Şöyle bir şey denedim.

procedure TForm1.Button1Click(Sender : TObject);
Var
 xDurum : boolean;
 Thrd   : TThread;
begin
 Thrd := TThread.CreateAnonymousThread(
   procedure
   begin
     Sleep(10000);
     TThread.Synchronize ( TThread.CurrentThread,
                             procedure ()
                             begin
                               xDurum := True;
                             end
                         );
   end
 );

 Thrd.Start;
 while NOT xDurum do
 begin
   Application.ProcessMessages;
 end;

 // Yukarıdaki thread kendi içinde 10 sn bekliyor. Biz de tam bu nokta da yukarıdaki thread'in bitmesini bekleyeceğiz. Ama nasıl ;-)
//AnaThreadDonmadanBuradaYukaridakiThreadiBekleyelim;
 Memo1.Lines.Add('Thread bitti');
end;

- Her zaman olduğu gibi soru süper üstadım tebrikler. 

 - Değişken atama için syncronize lazım mı değil mi ? Onu hiç düşünmedim    Bir method'a değer aktarmıyoruz sonuçta. Direkt bu değişkene de eşitleyince de olur bence. 

 Başlığı okuyanlara anlatıyorum, tercihen sleep kullanmak durumunda olsaydım 10000 milisaniye değil de 10 milisaniye dilimler halinde 1'den 1000'e kadar bir döngü kurar içinde application.processmessages koyardım. Böylece 10 milisaniyelik donmalar beni üzmezdi.

Kendi uyguladığım method ise GetTickCount + 10 saniye ( 10000 milisaniye ) değerini bir değişkene alır, while döngüsünde güncel GetTickCount'un bu değişkendeki değerin üzerine çıktığı anı yine application.processmessages ile beklemek şeklinde oluyor.

(30-04-2018, Saat: 09:44)mrmarman Adlı Kullanıcıdan Alıntı: Anladım.  Teşekkürler.

Oltaya düştük demek

while NOT xDurum do
 begin
  TThread.Sleep(10);
  Application.ProcessMessages;
end;

• WaitMessage
  
• MsgWaitForMultipleObjects
  

procedure TForm1.Button1Click(Sender : TObject);
Var
Thrd   : TThread;
begin
Thrd := TThread.CreateAnonymousThread(
  procedure
  begin
    Sleep(10000);
    TThread.Synchronize ( TThread.CurrentThread,
                            procedure ()
                            begin
                             memo1.lines.add('İşlem bitti');
                            end
                        );
  end
);

Thrd.Start;

(30-04-2018, Saat: 11:51)esistem Adlı Kullanıcıdan Alıntı:

procedure TForm1.Button1Click(Sender : TObject);
Var
Thrd   : TThread;
begin
Thrd := TThread.CreateAnonymousThread(
  procedure
  begin
    Sleep(10000);
    TThread.Synchronize ( TThread.CurrentThread,
                            procedure ()
                            begin
                             memo1.lines.add('İşlem bitti');
                            end
                        );
  end
);

Thrd.Start;

Böyle çok güzel çalışıyor hocam, bence bozmayalım