То что ты решил проблему самостоятельно, молодец)
Хочу сразу предупредить, народ, не используйте метки в программе, это очень некрасивый стиль программирования, к тому же очень ненадежный.
Тоже самое, что и у тебя, только в разы понадежнее будет, в твоем случае, если файла не существует, то ты получишь ряд ошибок, в моем случае, на это есть проверка, плюс ко всему, никаких меток.
Код:
var
F:TextFile;
l1, l2 :String;
begin
AssignFile(F, 'paroli.txt');
if FileExists('paroli.txt') then
begin
Reset(F);
Readln(F, l1);
if l1 <> '/1' then
begin
Application.MessageBox('Нарушена целостность пароля','error');
CloseFile(F);
Exit;
end
else Readln(F, l1);
Readln(F, l2);
if l1 <> '/2' then
begin
Application.MessageBox('Нарушена целостность пароля','error');
CloseFile(F);
Exit;
end
else Readln(F, l2);
CloseFile(F);
If (Edit1.Text='Администратор') and (Edit2.Text=l1) then
begin
end
else
If (Edit1.Text='Продавец') and (Edit2.Text=l2) then
begin
end;
end
else {файл не найден, делаем что-нибудь};