[Alegun]

Вроде все нормально копируется

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
mail: string;
begin
Edit1.Text:='<a href="mailto:stolyarov63@gmail.com">stolyarov63@gmail.com</a>';
mail:= Copy(Edit1.Text, pos('>',Edit1.Text)+1,Length(Edit1.Text));
mail:= Copy(mail, 1,pos('<',mail)-1);
label1.Caption:= mail;
end;