Problem mit MS Agents

[-=cats=-]

Hi :hi:

Ich habe mal wieder ein kleines Problem.
Ich verwende auf meiner Form die MS Agents. Besser gesagt,
einen von ihnenn (Peedy).
Jetzt hab ich mir überlegt, ist doch klasse wenn der auftaucht
während man auf einen Button klickt.
Funktioniert auch ...
Das Problem ist allerdings, wenn ich ein zweites Mal auf diesen
Button klicke, dann stürzt mir alles ab :-(

Hier mal der Code:

Delphi-Quellcode:

procedure TForm13.JvXPBar1Click(Sender: TObject);
begin
Agent1.Characters.Load('Peedy', 'peedy.acs');
  with Agent1.Characters.Item['Peedy'] do begin
   show(0);
   MoveTo(JvXPBar1.Left - 80, JvXPBar1.Top + 200, 0);
   Speak('Um die \emp\Toolbar einzublenden, klicken Sie auf \emp\"Toolbar" !', '');
   GestureAt(JvXPBar1.Left - 80, JvXPBar1.Top);
   hide(0);
  end;
end;

Liegt es vielleicht daran, das ich jedes mal den Agenten lade ?
Kann ich das irgendwie verbessern ?

Schon mal vielen Dank für Eure Hilfe !

Gruß,
-=cats=- :coder:



Ok, ich habe das Problem scheinbar gelöst.
Man darf den Agenten wirklich nur 1x laden ...