Gespräch simulieren??

[thechus]

Liebes Forum,

ich möchte, dass Gesprächstexte zeitlich versetzt auf verschiedenen Panels erscheinen.
Leider bekomme ich das nicht hin
Mein Ansatz ist folgender:

Code:

procedure TJesusS.Dialog;
var n :integer;
begin
 panel1.visible := true;
 panel2.visible := true;
 n := 0;
 repeat
 sleep(100);
 n := n + 1;
 if n = 1 then panel1.caption := 'HA!';
 if n = 10 then panel2.caption := 'HA!';
 until n = 10;
end;

Leider führt er alle Befehle gleichzeitig aus
Ich hab's auch schon mit einem Timer versucht.
Da kam das selbe bei raus.

Ich hoffe ihr könnte mir helfen...

Danke und Gruß,
thechus