Operationen mit Zeichenketten

[Lin]

Hallo,
habe folgendes Problem und hoffe man kann mir weiter helfen.
Ich will per knopfdrück die Stelle x, die in Edit2 bestimmt wird im Edit1 löschen.
Ich habe mir folgendes überlegt:

procedure TForm1.Button3Click(Sender: TObject);
var s,p:String;
i: Integer;
begin
s:= Edit1.Text;
p:= Edit2.text;
for i := 1 to length(s) do
delete(s,p,1);
Edit1.Text:= s;
Edit2.Text:= p;
end;

Zur Zeit ist dies mein Problem. Ich warne euch mal in voraus...es werden leider weitere Folgen aber ich gib mein bestes um es selber zu lösen. .___.
Bis dahin Vielen Dank!