[Davidcfres]

Vale, lo siento por mi ultima repuesta...

eso es una solucion

Código Delphi [-]
uses types;
procedure TForm4.Button1Click(Sender: TObject);
  function PositionValide(ImageRect:TRect; Liste:TObjectList):boolean;
  var
    i : integer;
    tmpRect : TRect;
    Unused : TRect;
  begin
    result := true;
    i := 0 ;
    while ( i < Liste.count ) and result do
    begin
      tmpRect := TImage(Liste[i]).BoundsRect;
      result := not(IntersectRect(Unused, tmpRect, ImageRect));
      inc(i);
    end
  end;
var
  nbImage : integer;
  tmpImage : TImage;
  ImageListe : TObjectList;
  i : integer;
begin
  nbImage := 20;
  ImageListe := TObjectList.Create(false);
  For i := 0 to nbImage-1 do
  begin
    tmpImage := TImage.Create(self);
    tmpImage.Picture.LoadFromFile('C:\Documents and Settings\David\Mes documents\Mes images\erreur.bmp');
    repeat
      tmpImage.Left := random(self.ClientWidth - tmpImage.Width);
      tmpImage.Top := random(self.ClientHeight - tmpImage.Height);
    until PositionValide(tmpImage.BoundsRect , ImageListe);
    tmpImage.Parent := self;
    ImageListe.Add(tmpImage);
    application.ProcessMessages;
  end;
 
  freeAndNil(ImageListe);
end;