[[xEsk]]

Hola, para detectar la presión de una tecla de función debes:

1. Poner la propiedad "KeyPreview" a "True".
2. Luego en el evento: "OnKeyDown" poner algo parecido a esto:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_F1: { código a realizar al presionar F1 };
    VK_F2: { código a realizar al presionar F2 };
    ...
    VK_F24: { código a realizar al presionar F24 };
  end;
end;

Para mostrar un MessageDlg con el valor de un TDBEdit:

Código Delphi [-]
MessageDlg(DBEdit1.Text, mtInformation, [mbOk], 0);

Saludos.