Consola cualquier zona

[delphi.com.ar]

Yo tengo hecha esta funcioncita con ese propósito:

procedure GotoXY(ACoord: TCoord); overload;
var
 Handle: THandle;
begin
 Handle := GetStdHandle(STD_OUTPUT_HANDLE);

 SetConsoleCursorPosition(Handle, ACoord);
end;

procedure GotoXY(x, y: SHORT); overload;
var
 ACoord: TCoord;
begin
 ACoord.X := x;
 ACoord.Y := y;
 GotoXY(ACoord);
end;

Saludos!