Тітанік

в розділі var пишемо координати малюнка

var

  Form1: TForm1;

  x,y: integer; 

створюємо і пишемо процедуру  з парамерами  Titanik