Moin Exiter,
wenn Du so fragst: Gar nicht.
Du musst die Routine als solche schon im Programm haben, und weist sie dann zur Laufzeit zu.
Vorher muss die Routine natürlich in der Lage sein unabhängig vom verwendeten Edit zu sein:
Delphi-Quellcode:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Var User : String;
begin
// Nur zur Sicherheit
if sender ist TEdit then
begin
If (Key= (VK_RETURN)) And Not (TEdit(Sender).Text='') Then
begin
User := 'IrgendEinUser'
Server1.SendPrivateMsg(User, Trim(TEdit(sender).Text));
TEdit(sender).Text:='';
end;
end;
end;