Ссылка открывается после нажатия Enter мне нужно что-бы она застыла в Edit1 и стала кликабельной....
Код:
procedure TForm2.edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
ShellExecute(0, 'open', PChar(Edit1.Text), '', '', SW_SHOWNORMAL);
end;