Text an Eingabezeile schicken

[Aike]

Das bringt mich gleich zum Heulen.
Zum einen funktioniert das Programm nicht, denn WComp.dcu fehlt in SysHot.

Aber SendKeys sieht komplex aus. Da kommen mir schon die Tränen, wenn ich mir das durchlese.
Hab jetzt aber doch ein bisschen herumprobiert und es geschafft, "b" von "bla" an den Editor zu senden. Wenn ich allerdings ein zweites "b(la)" schicke, kriege ich eine Access-Violation, nachdem das "b" geschickt wurde. Außerdem bekomme ich die Fehlermeldung, dass "SendKey1 möglicherweise nicht initialisiert" worden ist.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var SendKey1:TSendKey;
begin
  TSendKey.Create(SendKey1);
  SendKey1.Keys:='bla';
  SendKey1.TitleText:='Unbenannt - Editor';
  SendKey1.execute;
end;

Die Violation tritt durch SendKey1.Keys auf, wie ich gerade herausgefunden hab. Alle anderen Zeilen funktionieren. Wenn ich "SendKey1.Keys:='bla';" weglasse, wird ein "t" gesandt