functionAESCBCNew(kb:integer;resStr:PChar;inKey:PChar;initVector:PChar;OutStr:Pchar):Boolean;cdecl;external'AES.dll'; functionAESCBCD(kb:integer;resStr:PChar;inKey:PChar;initVector:PChar;OutStr:Pchar):Boolean;cdecl;external'AES.dll'; procedureTForm1.Button1Click(Send