Изменение размеров консольного окна

{$mode objfpc}
 
uses Windows;
 
function MaximizeConsole : boolean;
var
   coords : COORD;
   sr : SMALL_RECT =
      (Left : 0; Top : 0; Right : 0; Bottom : 0);
   std : HWND;
begin
   std := GetStdHandle(STD_OUTPUT_HANDLE);
   coords := GetLargestConsoleWindowSize(std);
   Result := (coords.x > 0) and (coords.y > 0);
   if Result then
   begin
      dec(coords.x, 2); dec(coords.y, 2);
      sr.right := pred(coords.x);
      sr.bottom := pred(coords.y);
      SetConsoleScreenBufferSize(std, coords);
      SetConsoleWindowInfo(std, True, sr);
 
      SetWindowPos(GetForegroundWindow, 0, 5, 5, 0, 0,
                   SWP_NOSIZE or SWP_NOZORDER);
   end;
end;
 
begin
   MaximizeConsole;
   // Дальше делаешь то, что нужно
   writeln('test');
   readln;
end.