Operationen mit Zeichenketten

[Sir Rufo]

Delphi-Quellcode:

Procedure TForm1.Button4Click(Sender: TObject);
var s,p,q:string;
begin
  s:=Edit1.Text;  // hier ist meine nachicht 
  p:= Edit2.Text;  // hier ist die stelle
  q:= Edit4.Text;  // da gebe ich mein zeichen ein, dass hinzugefügt  werden muss
  Insert(q,s,StrToInt(p)) ;
  Edit1.Text := s; // und hier wird es jetzt auch angezeigt
end;

Eine kleine Bitte: Setze den Quelltext doch auch bitte in Delphi-Tags (so wie ich das gemacht habe)