[slat]

tambien puedes obtener la resolucion con las propiedades width y height del objeto Tscreen

Código Delphi [-]
function Resolucion: string;
var
x, y: integer;
begin
x:=screen.Width;
y:=screen.Height;
result:=inttostr(x)+' x '+inttostr(y);
end;