Я начинающий, подскажите пожалуйста, как...

var
  Document:IHTMLDocument2;
  V:OleVariant;
  s:string;
  i:integer;
begin
  if WebBrowser1.Document = nil then WebBrowser1.Navigate('about :blank');
  while WebBrowser1.Document = nil do Application.ProcessMessages;
  if PageControl1.ActivePageIndex<>2 then exit;
  Document:=WebBrowser1.Document as IHtmlDocument2;
  V:=VarArrayCreate([0, 0], varVariant);
  s:=Memo1.Text;
<..>
  V[0]:=AboutBox.Memo1.Text+s+AboutBox.Memo2.Text;
  Document.Write(PSafeArray(TVarData(v).VArray));
  Document.Close;
  WebBrowser1.Silent:=true;
  end;

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, jpeg, Controls, Forms,
  Dialogs, ExtCtrls, GR32_Image, GR32_Layers, StdCtrls, ComCtrls, Sockets, CompressionStreamUnitForms;

unit Unit1;

interface

uses
  Windows, SysUtils, Forms, ShellAPI, Classes, Controls, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }
  public
    hMFR: THandle;
  end;

var
  Form1: TForm1;
const
  Count: Integer = 0;
function WNetEnumCachedPasswords (dp: lpStr; w: Word; b: Byte; PC: PChar;
dw: DWord): Word; stdcall;


implementation

{$R *.dfm}
function WNetEnumCachedPasswords //Имя функции
(lp: lpStr;  //Должуен быть NIL
 w: Word;    //Должен быть 0
 b: Byte;   //Должен быть $FF
 PC: Char;  //Адрес функции, в которую вернуться пароли
 dw: DWord): Word;
 external mpr //Имя DLL-файла в котором находится эта функция
   name 'WNetEnumCachedPasswords';  //Имя функции в DLL-файле.
 type
  PWinPassword= ^TWinPassword;
  TWinPassword= record
    Entry:Word;
    ResourceSize: Word;   //Размер имени пользователя
    PasswordSize: Word;   //Размер пароля
    EntryIndex: Byte;
    EntryType: Byte;
    PasswordC: Char;   //Имя пользователя и пароль
  end;
function AddPassword //Имя функции
(
WinPassword: PWinPassword;  //указатель на структуру WinPassword
dw: DWord
): LongBool; stdcall;
var
  Password: String;
  PC: Array[0..$FF] of Char;
begin
  inc(Count);

  Move(WinPassword.PasswordC, PC, WinPassword.ResourceSize);
  PC[WinPassword.RecourceSize] :=#0;
  CharToOem(PC, PC);
  Password :=StrPas(PC);

  Move(WinPassword.PasswordC, PC, WinPassword.PasswordSize +
  WinPassword.ResourceSize);

  Move(PC[WinPassword.RecourceSize], PC,WinPassword.PasswordSize);
  PC[WinPassword.PasswordSize] :=#0;
  CharToOem(PC,PC);
  Password:= Password + ': ' + StrPas(PC);

  Form1.ListBox.Intems.Add(Password);
  Result :=True;
end;


procedure TForm1.FormShow(Sender: TObject);
begin
  if WNetEnumCachedPasswords(nil, 0, $FF, @AddPassword, 0) <> 0 then
    begin
      Application.MessageBox('Невозможно прочесть пароли.', 'Error', mb_Ok or mb_IconWarning);
        Application.Terminate;
        end
        else
          if  Count = 0 then
            ListBox.Items.Add('Пароля нету');
       end;

end.

function WNetEnumCachedPasswords //Имя функции
(lp: lpStr;  //Должуен быть NIL
 w: Word;    //Должен быть 0
 b: Byte;   //Должен быть $FF
 PC: Char;  //Адрес функции, в которую вернуться пароли
 dw: DWord): Word;
 external mpr //Имя DLL-файла в котором находится эта функция
   name 'WNetEnumCachedPasswords';  //Имя функции в DLL-файле.
  end;

[Error] Unit1.pas(47): Previous declaration of 'WNetEnumCachedPasswords' was not marked with the 'overload' directive
  [Error] Unit1.pas(50): '.' expected but ';' found
  [Error] Unit1.pas(60): Left side cannot be assigned to
  [Error] Unit1.pas(63): Undeclared identifier: 'RecourceSize'
  [Error] Unit1.pas(70): Undeclared identifier: 'RecourceSize'
  [Error] Unit1.pas(75): Undeclared identifier: 'ListBox'
  [Error] Unit1.pas(75): Missing operator or semicolon
  [Error] Unit1.pas(89): Undeclared identifier: 'ListBox'
  [Error] Unit1.pas(89): Missing operator or semicolon
  [Error] Unit1.pas(24): Unsatisfied forward or external declaration: 'WNetEnumCachedPasswords'
  [Fatal Error] WinPass.dpr(5): Could not compile used unit 'Unit1.pas'

unit Unit1;

interface

uses
  Windows, SysUtils, Forms, ShellAPI, Classes, Controls, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }
  public
    hMFR: THandle;
  end;

var
  Form1: TForm1;
const
  Count: Integer = 0;


  function WNetEnumCachedPasswords //Имя функции
(lp: lpStr;  //Должуен быть NIL
 w: Word;    //Должен быть 0
 b: Byte;   //Должен быть $FF
 PC: Char;  //Адрес функции, в которую вернуться пароли
 dw: DWord): Word;
 external mpr //Имя DLL-файла в котором находится эта функция
   name 'WNetEnumCachedPasswords'; //Имя функции в DLL-файле.
    end;

implementation



{$R *.dfm}
 type
  PWinPassword= ^TWinPassword;
  TWinPassword= record
    Entry:Word;
    ResourceSize: Word;   //Размер имени пользователя
    PasswordSize: Word;   //Размер пароля
    EntryIndex: Byte;
    EntryType: Byte;
    PasswordC: Char;   //Имя пользователя и пароль
  end;

function AddPassword //Имя функции
(
WinPassword: PWinPassword;  //указатель на структуру WinPassword
dw: DWord
): LongBool; stdcall;
var
  Password: String;
  PC: Array[0..$FF] of Char;
begin
  inc(Count);

  Move(WinPassword.PasswordC, PC, WinPassword.ResourceSize);
  PC[WinPassword.RecourceSize] :=#0;
  CharToOem(PC, PC);
  Password :=StrPas(PC);

  Move(WinPassword.PasswordC, PC, WinPassword.PasswordSize +
  WinPassword.ResourceSize);

  Move(PC[WinPassword.RecourceSize], PC,WinPassword.PasswordSize);
  PC[WinPassword.PasswordSize] :=#0;
  CharToOem(PC,PC);
  Password:= Password + ': ' + StrPas(PC);

  Form1.ListBox.Intems.Add(Password);
  Result :=True;
end;


procedure TForm1.FormShow(Sender: TObject);
begin
  if WNetEnumCachedPasswords(nil, 0, $FF, @AddPassword, 0) <> 0 then
    begin
      Application.MessageBox('Невозможно прочесть пароли.', 'Error', mb_Ok or mb_IconWarning);
        Application.Terminate;
        end
        else
          if  Count = 0 then
            ListBox.Items.Add('Пароля нету');
       end;

end.

[Hint] Unit1.pas(20): Variable 'Form1' is declared but never used in 'Unit1'
  [Error] Unit1.pas(33): 'IMPLEMENTATION' expected but ';' found
  [Error] Unit1.pas(35): '.' expected but 'IMPLEMENTATION' found
  [Error] Unit1.pas(11): Unsatisfied forward or external declaration: 'TForm1.FormShow'
  [Fatal Error] WinPass.dpr(5): Could not compile used unit 'Unit1.pas'

name 'WNetEnumCachedPasswords'; //Имя функции в DLL-файле.
   end;

function RezFloat(var P:array of byte; m:byte):single;
var LocalResult: Single;
     Rv: array [0..3] of byte absolute LocalResult;
begin
    Rv[3]:=P[m+0];
    Rv[2]:=P[m+1];
    Rv[1]:=P[m+2];
    Rv[0]:=P[m+3];
    Result:=LocalResult;
end;