[leroisss]

Всем Доброго времени суток, подскажите пожалуйста в чем моя ошибка
в данном варианте в участка выделенном кода, при открытых скобках почему возникают ошибки?

Код:

procedure TForm1.FormCreate(Sender: TObject);
        begin
        randomize;
        end;
function randomPwd(PWLen: integer):string;
        const
             StrTable: String = '!@#$%^&*()\{[]}|<>:; -'{+
            + 'QWERTYUIOPASDFGHJKLZXCVBNM' +
             + 'qweertyuiopasdfghjkl'};          

        var
N,K,X,Y: integer;

        begin
        if (PWLen > Length(StrTable)) then {Length(StrTable) -1} 
         else
         K:= PWLen;
         SetLength (result,K);
         Y:= Length( StrTable);
         N:= 0;
         while N< K  do begin
         x := random(Y)+1;
         if Pos ( StrTable[X], result)=0 then
         inc(N);
         result:=StrTable[X];

         end;
       end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
 cPwd : string;
begin
 cPwd:= RandomPwd(30);
 Edit1.Text:= cPwd;
end;

[Bargest]

Перенеси на одну строку и сам поймешь.

Код:

'!@#$%^&*()\{[]}|<>:; -' ++ 'QWERTYUIOPASDFGHJKLZXCVBNM' ++ 'qweertyuiopasdfghjkl'

Ничего странного не замечаешь? Как-то многовато плюсов.

З.Ы. у тебя, видимо, еще и опечатка небольшая - в 3-й части "e" 2 раза.