Рисование линий и запись координат в файл

TForm1 *Form1;
int k;//кол-во линий
TStringList *Lst;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Lst = new TStringList;
k=0;
Image1->Canvas->FillRect(Rect(0,0,Image1->Height,Image1->Width));//очистка имаге
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Lst;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Shift.Contains(ssLeft))//если нажата левая
{
Image1->Canvas->MoveTo(X,Y);//начало линии
Lst->Text=Lst->Text+(IntToStr(X)+" "+IntToStr(Y));//запись координат начала
k++;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))
{
Image1->Canvas->LineTo(X,Y);//рисуем
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
Lst->Text=Lst->Text+(IntToStr(X)+" "+IntToStr(Y));//запись координат конца
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Lst->Text=IntToStr(k)+"\n"+Lst->Text;//запись кол-ва линий
Lst->SaveToFile("1.txt");//сохранение в файл
}