Verificar quantidade de monitores no Delphi

procedure TForm1.Button1Click(Sender: TObject); 
var 
  I : Integer; 
begin 
  Memo1.Lines.Add('Monitores'); 
  for I := 0 to Screen.MonitorCount - 1 do 
  begin 
    Memo1.Lines.Add(''); 
    Memo1.Lines.Add('MonitorNum: '+IntToStr(Screen.Monitors[I].MonitorNum)); 
    Memo1.Lines.Add('   Left: '+IntToStr(Screen.Monitors[I].Left)); 
    Memo1.Lines.Add('   Top: '+IntToStr(Screen.Monitors[I].Top)); 
    Memo1.Lines.Add('   Width: '+IntToStr(Screen.Monitors[I].Width)); 
    Memo1.Lines.Add('   Height: '+IntToStr(Screen.Monitors[I].Height)); 
  end; 
end;




procedure TTela.FormCreate(Sender: TObject); 
begin 
Tela.Left := -800; 
end;




procedure TTela.FormCreate(Sender: TObject); 
begin 
  WindowState := wsNormal; 
  Left := -800; 
end;