CYFROWY BARON • PROGRAMOWANIE

 String sFileName = ExtractFilePath(ParamStr(0)) + "plik.txt";

 if(!FileExists)
 {
  Application->MessageBox(L"Nie odnaleziono pliku", Application->Title.c_str(),
                                                  MB_OK | MB_ICONSTOP);
  return;
 }

 TStringList * tmpList = new TStringList;
 tmpList->LoadFromFile(sFileName);
 tmpList->NameValueSeparator = ';';
 /*
  ustawienie separatora dla rozdzielenia
  sekcji Names od Value,
  czyli np: 1;a
  gdzie:
  1 to Names,
  a to Values - tutaj ValueFromIndex
  ; to separator rozdzielajacy
 */

 int x = 0;

 ListBox1->Items->Clear();
 ListBox2->Items->Clear();

 while(x < tmpList->Count)
 {

  String sFirstValue  = tmpList->Names[x];
  String sSecondValue = tmpList->ValueFromIndex[x];

  ListBox1->Items->Add(sFirstValue);
  ListBox2->Items->Add(sSecondValue);

  x++;
 }

 delete tmpList;