更改控制台大小

Delphi中的简单问题。我创建了一个控制台应用程序，如果控制台窗口的高度少于 80 行，我需要将其高度更改为 80 行。这需要从代码中完成，并且实际上是在代码内有条件的。 （即，当发生错误时，它会增加控制台的大小，以便整个（巨大的）错误报告可见。）
请记住，这是一个控制台应用程序！当它启动时，它使用默认控制台，我需要更改它！

调用 SetConsoleWindowInfo() 时，传递到控制台的 Left 和 Top 值至少需要为 1，而不是 0。问题已解决。

我现在这样做：

uses
  Windows;

var
  Rect: TSmallRect;
  Coord: TCoord;
begin
  Rect.Left := 1;
  Rect.Top := 1;
  Rect.Right := 80;
  Rect.Bottom := 60;
  Coord.X := Rect.Right + 1 - Rect.Left;
  Coord.y := Rect.Bottom + 1 - Rect.Top;
  SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE), Coord);
  SetConsoleWindowInfo(GetStdHandle(STD_OUTPUT_HANDLE), True, Rect);
end;