Mostrar Ventana Monitor secundario

[[Lepe]]

pues a mi si me sale:

Monitor Nº: 0 IsPrimary : True
Dimensiones estandard
   Left   0
   Top    0
   Width  1024
   Height 768
BoundsRect
   Left   0
   Top    0
   Right  1024
   Bottom 768
WorkareaRect
   Left   0
   Top    0
   Right  1024
   Bottom 738

Monitor Nº: 1 IsPrimary : False
Dimensiones estandard
   Left   1024
   Top    0
   Width  1024
   Height 768
BoundsRect
   Left   1024
   Top    0
   Right  2048
   Bottom 768
WorkareaRect
   Left   1024
   Top    0
   Right  2048
   Bottom 768

el código delphi... nada del otro mundo:

Código Delphi [-]
var m:Tmonitor;
    i:Integer;
begin
  Memo1.Clear;
  for i:=0 to Screen.MonitorCount-1 do
  begin
    m := Screen.Monitors[i];
    with Memo1.Lines do
    begin
      Add('Monitor Nº: '+IntToStr(m.MonitorNum)+ ' IsPrimary : '+ BoolToStr(m.Primary,True));
      Add('Dimensiones estandard');
      Add('   Left   '+ IntToStr(m.Left));
      Add('   Top    '+ IntToStr(m.Top));
      Add('   Width  '+ IntToStr(m.width));
      Add('   Height '+ IntToStr(m.height));

      Add('BoundsRect');
        Add('   Left   '+ IntToStr(m.BoundsRect.Left));
        Add('   Top    '+ IntToStr(m.BoundsRect.Top));
        Add('   Right  '+ IntToStr(m.BoundsRect.Right));
        Add('   Bottom '+ IntToStr(m.BoundsRect.Bottom));

     Add('WorkareaRect');
        Add('   Left   '+ IntToStr(m.WorkareaRect.Left));
        Add('   Top    '+ IntToStr(m.WorkareaRect.Top));
        Add('   Right  '+ IntToStr(m.WorkareaRect.Right));
        Add('   Bottom '+ IntToStr(m.WorkareaRect.Bottom));
     Add('');
    end;
  end;

¿qué obtienes tú?

Saludos