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)
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 thentexto('Adios');