Form1.ListBox2.Items.Add('X = '+IntToStr(Form1.RichEdit1.CaretPos.X)+';Y = '+IntToStr(Form1.RichEdit1.CaretPos.Y));