Короче разобрался немного вроде, просто добавил не TCriticalSection, а TRTLCriticalSection, получилось вот так:
Код:
var
Form2: TForm2;
Accounts: TStringList;
Login, Password, del: string;
ProgressPos: integer;
T1: TThread;
CS: TRTLCriticalSection;
procedure TForm2.FormCreate(Sender: TObject);
begin
CS:=TRTLCriticalSection.Create;
end;
Теперь почему-то вообще ругается вот так "Undeclared identifier: 'Create'". Что здесь не так, я что-то вообще не могу понять