TStringList* lstLine = new TStringList;
AnsiString str;
str = StringReplace(strInfo,";", "\r\n", TReplaceFlags() << rfReplaceAll);
lstLine->Text = str;
currectlevel = StrToInt(lstLine->Strings[0]);
blind = StrToInt(lstLine->Strings[1]);
bblind = StrToInt(lstLine->Strings[2]);
ante = StrToInt(lstLine->Strings[3]);
time = StrToInt(lstLine->Strings[4]);
delete lstLine;
AnsiString str;
str = StringReplace(strInfo,";", "\r\n", TReplaceFlags() << rfReplaceAll);
lstLine->Text = str;
currectlevel = StrToInt(lstLine->Strings[0]);
blind = StrToInt(lstLine->Strings[1]);
bblind = StrToInt(lstLine->Strings[2]);
ante = StrToInt(lstLine->Strings[3]);
time = StrToInt(lstLine->Strings[4]);
delete lstLine;