Sicherstellen das Procedure abgearbeitet wurde

[Int3g3r]

Guten Tag,

Ich komme immer wieder an eine Stelle an der ich sichergehen muss das Block1 vor Block2 ausgeführt wird.
Block1 kann je nach Datenmenge zwischen 0.1s und 10s dauern. Der Benutzer erhält so oder so die Meldung "Bitte warten..".
Der Benutzer kann während dieser Zeit nicht mit dem Programm arbeiten. Mir ist klar das dies nicht die sauberste Lösung ist.
Da ich mich noch nicht mit Threads beschäftigt habe wäre mir ein Beispiel ohne Threads sehr willkomen.

Wie kann ich am Punkt "warten" sicherstellen das Block1 abgearbeitet wurde ?
Ich hatte nun schon mehrmals das Problem das Block2 ausgeführt wurde und Block1 noch nicht mit seiner Arbeit fertig war.
Was in einer Exception endet.

Delphi-Quellcode:

Procedure Block1
begin
  // mach was..
end;

//warten.. sicherstellen das Block1 fertig ist

Procedure Block2
begin
  // mach was.. aber Block1 muss abgearbeitet sein.
end;