@DGL-luke, ansonsten bezüglich der Fehlermeldung
Zitat:
[Fehler] U_dragdrop_main.pas(50): E2037 Deklaration von 'WndProc' unterscheidet sich von vorheriger Deklaration
WndProcs werden durch WindowProc-Variable gepointet und die sind wiederum vom Typ TWndMethod, dh. letzterer sieht dann in etwa ungefähr so aus:
type TWndMethod = procedure(
var Message: TMessage) of object;