Text an einer bestimmten stelle kopieren

[The Re@l]

sorry wenn ich nerve

Code:

procedure TForm1.FormCreate(Sender: TObject);
 var
 x, y: integer;
 m: array[1..3] of char;
begin

AjLink.PasteFromClipboard;
  m[1] := '|';
  m[2] := '|';
  m[3] := '|';

  x := pos (m[1], ajlink.Text);
  y := pos (m[2], ajlink.Text);

  linkname.Text := copy (ajlink.Text, x +1, y );

end;

das tut´s ein bisschen, aber nich richtig. Was is denn daran Falsch.