EInvalidPointer ohne Sinn?

[Christian Seehase]

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.