Fórum Transformar string em link #177190

procedure TForm1.JumpTo(const aAdress: String);
var
        buffer: String;
begin
        buffer := ´http://´ + aAdress;//http pode ser substituido por mailto
        ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.Edit1OnKeyPress(Sender: TObject);
begin
        If Key = #13 Then //o cara digita e pressiona ENTER
        JumpTo(Edit1.Text);
end;