Eigener Dialog+TOpendialog Umbenennen Funktion über F2 Taste

[eassy]

so, tlistview habe ich gefüllt,
aber das ich durch drücken der F2-Taste das Item umbenennen
kann habe ich bis jetzt noch nicht hinbekommen.

folgendes habe ich versucht

Delphi-Quellcode:

procedure TfrmOpendialog.lviDateienKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
var
   lEdit: Boolean;
begin
   if (Key = vk_F2) then
   begin
      lEdit := TRUE;
      lviDateienEditing(Sender, lviDateien.Selected, lEdit);
   end;
end;

procedure TfrmOpendialog.lviDateienEditing(Sender: TObject;
   Item: TListItem; var AllowEdit: Boolean);
begin
// was soll ich aber hier machen
end;

kann mir da nochmal jemand bitte helfen....

danke
gruß
eassy