Esperar a que termine un proceso y luego continuar

[pokexperto1]

Tengo un codigo:

Código Delphi [-]
procedure Tjuego.hablarTimer(Sender: TObject);
begin
letra:=letra+1;
Memo.Text := Memo.Text + Copy(textomemo, letra, 1);
Hablar.Enabled := letra <= Length(textomemo);
acabado:=true;
end;

procedure Tjuego.Texto(texto: string);
begin
acabado:=false;
panelmemo.Visible:=true;
textomemo:=texto;
hablar.Enabled:=true;
end;

Yo llamo al procedimiento (pongo un ejemplo)

Código Delphi [-]
texto('Hola')

Como hago para que cuando termine ese texto pueda llamar a otro. No se si me explico.

Por ejemplo:

Código Delphi [-]
procedure boton;
begin
texto('Hola')
if acabado then//aquí iría el codigo de lo que os estoy hablando
texto('Adios');