Pascal/Turbo Pascal - Usar tecla ratón en pascal

Buenas, pues tengo una pregunta, como podría usar la tecla derecha o izquierda del ratón en un código en pascal, es decir que el código en vez de esperar un ENTER espere un clic ?¿?

He mirado en google, vi una clase pero no esta implementada.

Muchas gracias y un saludo

{A qui tienes un pequeño ejemplo de manejo del ratón en texto en pascal}

uses
crt, dos;

var
regs : registers;
raton : boolean;
x, y : word;

function raton_presente : boolean;
begin
regs.ah := $00;
regs.al := $00;
intr($33,regs);
if regs.ax <> 0 then
raton_presente := true
else
raton_presente := false;
end;
procedure muestra_raton;
begin
raton := false;
if raton_presente then
begin
regs.ah := $00;
regs.al := $01;
intr($33,regs);
raton := true;
end;
end;
procedure oculta_raton;
begin
if raton = true then
begin
regs.ah := $00;
regs.al := $02;
intr($33,regs);
raton := false;
end;
end;
function posx_raton : word;
begin
posx_raton := 0;
regs.ah := $00;
regs.al := $03;
intr($33,regs);
posx_raton := regs.cx div 8 + 1;
end;
function posy_raton : word;
begin
posy_raton := 0;
regs.ah := $00;
regs.al := $03;
intr($33,regs);
posy_raton := regs.dx div 8 + 1;
end;
function boton_raton : word;
begin
boton_raton := 0;
regs.ah := $00;
regs.al := $03;
intr($33,regs);
boton_raton := regs.bx;
end;

begin
clrscr;
if raton_presente = true then
begin
muestra_raton;
x := posx_raton;
y := posy_raton;
repeat
gotoxy(4,3);write('Pasicion X : ',x);
gotoxy(4,4);write('Pasicion Y : ',y);
if (x <> posx_raton) or (y <> posy_raton) then
begin
gotoxy(4,3);write(' ');
gotoxy(4,4);write(' ');
x := posx_raton;
y := posy_raton;
end;
until boton_raton = 1;
{1 = boton raton izquierdo}
{2 = boton raton derecho}

oculta_raton;
end;
end.