TListbox ondrawevent

Jeg har lavet en ondrawevent på min TListbox, men jeg kan ikke få den til at skrive noget ind. Koden ser ud some følgende

Dette står i grænseflade.cpp

void __fastcall TForm1::drawItem(TListBox* list, THeaderControl* header, TRect& r, int idx, char* str) {
  r.Left=header->Sections->Items[idx]->Left;
  r.Right=header->Sections->Items[idx]->Right-4;

  int offset=0;
  if(header->Sections->Items[idx]->Alignment==taRightJustify) {
    int lenx=list->Canvas->TextWidth(str);
    offset=header->Sections->Items[idx]->Width-lenx-6;
  }
  list->Canvas->TextRect(r,r.Left+1+offset,r.Top,str);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LogListDrawItem(TWinControl *Control,
      int Index, TRect &Rect, TOwnerDrawState State)
{

                LogList->Canvas->FillRect(Rect);
                char pr[3];
                drawItem(LogList,LogHeader,Rect,0,itoa(z_start,pr,3));
                drawItem(LogList,LogHeader,Rect,1,itoa(z_slut,pr,3));
                drawItem(LogList,LogHeader,Rect,2,itoa(u_price,pr,3));
                drawItem(LogList,LogHeader,Rect,3,itoa(u_saldo,pr,3));

}

Dette står i Login.cpp

void __fastcall TForm2::Log_InClick(TObject *Sender)
{
        FILE* fp;
        char* fnm;
        fnm= Edit1->Text.c_str();
        char path[256];


        sprintf(path,"C:\\Program Files\\Borland\\CBuilder6\\Projects\\RS232\\%s.txt",fnm);
        fp = fopen(path,"r");

            // % angiver "her kommer en type af ..."
            while(!feof(fp))
            {
                fscanf(fp,"%17s,%d,%d ,%f,%f ",
                kort,&z_start,&z_slut,&u_price,&u_saldo);
                Form1->Memo1->Text=kort;
              }

        fclose(fp);
        ModalResult=mrCancel;
}

Det der er min mening er at når jeg trykker på login på form2 så skal der komme tekst frem på min TListbox på Form1, men der sker intet. Er der nogen der kan hjælpe mig med at se hvor det går galt