Yo tengo hecha esta funcioncita con ese propósito:
Código:
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!