OnKeyDown/Press Ereignis bei dynamisch erzeugtem Edit

[Exciter]

Moin Moin !

Gesagt getan. Funzt aber nicht ...
(Das ganze soll ein Chat mit Private Messages werden und für jeden Chat/jede PM soll ein eigener TabSheet mit nem Edit/ListView erstellt werden)

Code:

  ...
  NewTab := TTabSheet.Create(Form1.PageControl3);
  NewTab.PageControl := Form1.PageControl3;
  NewEdit := TEdit.Create(NewTab);
  NewListView := TListView.Create(NewTab);
  TWinControl(NewEdit).parent := NewTab;
  TWinControl(NewListView).parent := NewTab;
  OnKeyDown := MeinKeyDown;
end;

Das funzt auch alles soweit. Nur passiert nix, wenn ich im Programm auf 'Return' drück'.

Code:

procedure TForm1.MeinKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin
If (Key= (VK_RETURN)) And Not (NewEdit.Text='') Then
   begin ....

und hier das nächste Problem: Wie kann ich jetzt etwas mit dem eben erstelltem ListView anstellen ??

Thx für die Hilfe
Patrick