[YVitaliy]

В onClick'е обрабатывай

Код:

Procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then 
  begin
   Edit1.BorderStyle:=bsNone;
   Edit1.ReadOnly:=True;
   Edit1.Font.Style:=[fsUnderline];
   Edit1.Font.Color:=clBlue;
   ...........
end;

procedure TForm2.Edit1Click(Sender: TObject);
begin
 if Edit1.ReadOnly then
   begin
    ShellExecute(0, 'open', PChar(Edit1.Text), '', '', SW_SHOWNORMAL);
   end;
end;