Moin Steffen,
auch wenn es jetzt funktioniert solltest Du Dir mal Heikos Tip anschauen, und Str(Key,s) weglassen:
Delphi-Quellcode:
// statt
Str(Key,s);
if s='13' then PKom_Lager_vergleich(sender)
// besser
if Key = VK_RETURN then ...
Das 13 Return dürfte wohl den meisten klar sein, aber mit Konstante wird das Ganze doch lesbarer, ausserdem sparst Du Dir eine unnötige Konvertierung.