ChangeDisplaySettings라는 함수를 사용하시면 쉽게 변환이 됩니다.
예를 들어...
Button을 하나 꺼내 놓으시고 그 Button Click Event에

procedure TForm1.Button1Click(Sender: Tobject);
var
  DevMode : TDevMode;
begin
  With DevMode do
  begin
    dmSize : Sizeof (TDevMode);
    dmPelsWidth := 1024;
    dmPelsHeight := 768;
    dmFieldS     : DM_PELSWIDTH or DM_PELSHEIGHT;
  end;
  ChangeDisplaySettings(DevMode,0);
end;

런식으로 하면 될것 같군요... 잉??? 위에 Sizeof 앞에 =를 빼 먹었네..
쿠쿠쿠  만일 800X600이라면 1024대신 800을 768대신 600을 넣으시면 서로
변환이 될것 같군요 더 자세한것은 Help를 찾아 보심이 ...
그럼 즐거운 코딩 하세요...