Визуализация на Delphi

[tracer]

В общем такое дело. До сегодняшнего утра нужно сделать визуализацию для программы: На числовой оси расположены три точки: A, B, C. Определить, какая из
двух последних точек (B или C) расположена ближе к A, и вывести эту
точку и ее расстояние от точки A.
Но так как я не знаток, а сделать очень надо я постарался и сделал программу в консольной форме:

program Project8;


{$APPTYPE CONSOLE}
  var a,b,c,x: real;

begin
  write('Vvedite zn-e tochki A na chislovoi osi: ');
readln(a);
write('Vvedite zn-e tochki B na chislovoi osi: ');
readln(b);
write('Vvedite zn-e tochki C na chislovoi osi: ');
readln(c);
if abs(a-b) > abs(a-c) then
begin
x:=abs(a-b);
writeln('Rasstoianie ot A do B bolshe, chem ot A do C i ravno ',x:2:5);
end else if abs(a-c) > abs(a-b) then
begin
x:=abs(a-c);
writeln('Rasstoianie ot A do C bolshe, chem ot A do B i ravno ',x:2:5);
end else if abs(a-c) = abs(a-b) then
begin
x:=abs(a-c);
writeln('Rasstoianie ot A do C ravno rasstoianiu ot A do B i ravno ',x:2:5);
end;
readln;
end.

Помогите умоляю, весь день и наступившую ночь мучаюсь с ней...
Сделайте хоть простенькую визуализацию с кнопкой и что там нужно, умоляю!

[tracer]

Хотя бы переделайте код под визуализацию и объясните как привязать кнопку или как это делается

[phomm]

Вот держи, писал быстро, поэтому без комментов. Если ещё есть время, могу и комменты накидать. Визуализацию - это как я понял компоненты надо, ну виндовое, а не консольное окно. может ещё надо линию с точками сделать ? Чуток позже тогда ещё.

Перезалил, с рисовалкой, и сбрасывалкой. Комментов пока нет. пиши, коли они нужны.