Invalid Class

Shape3.Left := (Sender As TImage).Left;

Du har lavet en simple tryk fejl :)

Du har gemt T på Image..

Shape3.Left := (Sender As Image).Left;
Laves til:
Shape3.Left := (Sender As TImage).Left;

Fejlen kan dog ogsaa komme hvis Sender ikke er et TImage. Det kan du tjekke for med:
If Sender is TImage then begin
..
end;

Men hvis du er sikker på at sender altid er TImage er det selfølgelig ikke nødvendigt

Det er fordi sender ikke er af typen TImage, men formentlig af type TForm1. Kan det passe at du kommer ind i event ved at trykke på formen? Det skulle vel ellers ske ved at trykke på Image kontrolle. Er dette korrekt

skulle koden ikke vare dette
          ******* 
procedure TImage1.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
(Sender As TImage).BringToFront;

  Shape3.Top := (Sender As TImage).Top;
  Shape3.Left := (Sender As TImage).Left;
end;                        ******

**** angiver rettelse

hehe.. Det gælder da vist om at være hurtig her :)

Nå - selv med et korrekt og hurtigst svar... Tjah

>>erikjacobsen , Hmm.. Han ville åbenbart gerne have forklaringen med, samt hvad det ellers kunne værer.. (Sender<>TImage)