reconocer resolucion de pantalla

[pablopessoa]

hola, gracias por responderme tan rapido
estoy probando las cosas que me dijero pero no me funciona bien o yo lo estoy haciendo mal
el tamaño de mi boton por ejemplo es width =158 entonces calcule que lo tengo que reducir un 70 % (lo multiuplico por 0.7) pero me lo reduce muchisimo, me deja un cuadradito nada mas.
te muestro el codigo con el que lo hago

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
var
x,y,I:integer;
begin
      x:=screen.Width;
      y:=screen.Height;
      if ((x<1024)and (y<768)) then
      begin
          form1.Width:= round (form1.Width *0.8);
          form1.Height:= round (form1.Height *0.8);

          for I := 0 to form1.ComponentCount - 1 do
          begin
              if (form1.Components[i] is TButton) then
                begin
                   tbutton(form1.Components[i]).Width:= Round (tbutton(form1.Components[i]).Width* 0.9);
                   tbutton(form1.Components[i]).Width:= Round (tbutton(form1.Components[i]).Height* 0.9);
                end;

(perdon por el post largo)