Delphi-Quellcode:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var xold,yold:integer;
begin
xold := x;
yold := y;
RotateX := RotateX + xold-x;
RotateY := RotateY + yold-y;
end;
Das hier kann gar nicht funktionieren, weil x/yold lokale Variablen sind. Du berechnest also RotateX = rotateX + X - X => RotateX = RotateX (Hinweis: Der Wert hier ändert sich nicht). Du müsstest hier wenn schon globalere Variablen nehmen (also entweder globale Variablen oder Form-Member).
Bernhard