Ungetestet grob sowas:
DBGrid_Ergebnis mit 'nem Ereignis OnKeyUp versorgen:
Delphi-Quellcode:
procedure TForm_HauptUnterPos.DBGrid_ErgebnisKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
// 38 = Pfeil nach oben
// 40 = Pfeil nach unten
case key of
38,40 : DBGrid_ErgebnisCellClick(DBGrid_Ergebnis.SelectColumn);
end;
end;