Komponente ansprechen, aber wie?

[jAcK oRsEn]

Danke, aber ich bekomme jetzt hier eine Fehlermeldung...

Zugriffsverletzung!

Delphi-Quellcode:

procedure TForm1.schiebe(Sender:TObject;oben,unten,links,rechts:string);
begin
if oben = '' then
begin
end
else
begin
if tImage(FindComponent('image'+oben)).Picture.Graphic<>nil then
begin
end
{Ein Bild ist drin} else
begin
tImage(FindComponent('image'+oben)).Picture := (sender as TImage).picture;
(sender as TImage).picture := nil;
end;
end;

if unten = '' then
begin
end
else
begin
if tImage(FindComponent('image'+unten)).Picture.Graphic<>nil then
begin
end
{Ein Bild ist drin} else
begin
tImage(FindComponent('image'+unten)).Picture := (sender as TImage).picture;
(sender as TImage).picture := nil;
end;
end;

if links = '' then
begin
end
else
begin
if tImage(FindComponent('image'+links)).Picture.Graphic<>nil then
begin
end
{Ein Bild ist drin} else
begin
tImage(FindComponent('image'+links)).Picture := (sender as TImage).picture;
(sender as TImage).picture := nil;
end;
end;

if rechts = '' then
begin
end
else
begin
if tImage(FindComponent('image'+rechts)).Picture.Graphic<>nil then
begin
end
{Ein Bild ist drin} else
begin
tImage(FindComponent('image'+rechts)).Picture := (sender as TImage).picture;
(sender as TImage).picture := nil;
end;
end;
end;

...

procedure TForm1.Image30Click(Sender: TObject);
begin
schiebe(nil,'24','','29','');
end;

Woran kann es liegen?