[ecfisa]

Hola yuyidt.

Pero, ¿ Has cambiado la idea inicial no ? , por que ya no aparecen otros formularios...

Bueno, con respecto a tu última consulta creo que te complicas mucho usando imágenes, te resultaría mas simple usando solamente paneles.

Un ejemplo simplificado:

Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  Panel1.Tag     := Random( 5 ) + 1;
  Panel1.Caption := IntToStr(Panel1.Tag);

  Panel2.Tag := 2; // 3 - 1
  Panel3.Tag := 6; // 4 + 2
  Panel4.Tag := 5; // 3 + 2
  Panel5.Tag := 4; // 2 + 2
  Panel6.Tag := 3; // 2 + 1
  Panel7.Tag := 1; // 4 - 3
end;

// Código asignado a los eventos OnClick de los 6 paneles inferiores (opciones)
procedure TForm1.PanelesClick( Sender: TObject );
const
  CCOLOR: array[Boolean] of TColor = (clRed, $0000D900);
  CBEEP : array[Boolean] of LongWord = (MB_ICONERROR, MB_OK);
var
  pnl: TPanel;
  i: Integer;
begin
  pnl       := TPanel(Sender);
  pnl.Color := CCOLOR[pnl.Tag = Panel1.Tag];

  for i := 0 to 5 do
  begin
    pnl.Visible := not pnl.Visible;
    Sleep(100);
  end;
  pnl.Visible := True;

  MessageBeep(CBEEP[pnl.Tag = Panel1.Tag]);
end;

// Generar otro nuevo resultado al azar y restaurar respuestas anteriores
procedure TForm1.btnContinuaClick(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to ControlCount - 1 do
    if Controls[i] is TPanel then
      TPanel(Controls[i]).Color := clBtnFace;

  Panel1.Tag     := Random( 5 ) + 1;
  Panel1.Caption := IntToStr(Panel1.Tag);
end;

Saludos