Процедуру в очередь

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  k: Integer;
implementation
 
{$R *.dfm}
 
procedure A;
begin
  Form1.Caption := 'aaaaaaaaaaaaaaa'
end;
 
procedure B;
begin
  Form1.Caption := 'bbbbbbbbbbbbbbb'
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  // start timer
  Timer1.Enabled := True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // wait 3 sec
  if k = 3 then
    A
  // wait 6 sec
  else if k = 6 then
    begin
      B;
      Timer1.Enabled := False;
      k := 0;
    end;
 
  k := k + 1;
end;
 
end.

Tdir = (dTOP, tLEFT, tWIDTH, tHEIGHT);
.  .  .
Procedure anm(p: TPanel; d: Tdir; firstpos, secondpos: integer);
const
  s = 10;
var
  b, c: boolean;
begin
  b := firstpos < secondpos;
  repeat
    case d of
      dTOP:
        if b then
        begin
          p.Top := p.Top + s;
          c := p.Top >= secondpos;
        end
        else
        begin
          p.Top := p.Top - s;
          c := p.Top <= secondpos;
        end;
      tLEFT:
        if b then
        begin
          p.Left := p.Left + s;
          c := p.Left >= secondpos;
        end
 
        else
        begin
          p.Left := p.Left - s;
          c := p.Left <= secondpos;
        end;
      tWIDTH:
        if b then
        begin
          p.Width := p.Width + s;
          c := p.Width >= secondpos;
        end
        else
        begin
          p.Width := p.Width - s;
          c := p.Width <= secondpos;
        end;
      tHEIGHT:
        if b then
        begin
          p.Height := p.Height + s;
          c := p.Height >= secondpos;
        end
        else
        begin
          p.Height := p.Height - s;
          c := p.Height <= secondpos;
        end;
    end;
    sleep(5);
    Application.ProcessMessages;
  until c;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  anm(panel1, tWIDTH, panel1.Width, 0);   // hide
  anm(panel1, tWIDTH, panel1.Width, 500); // show
end;