ошибка при вызове процедуры

[Emperator12]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ShellApi, ExtCtrls, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, RegExpr, JPEG, UrlMon,
  IdAntiFreezeBase, IdAntiFreeze, IdThreadMgr, IdThreadMgrDefault;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Memo1: TRichEdit;
    GroupBox2: TGroupBox;
    Image1: TImage;
    GroupBox3: TGroupBox;
    OpenDialog1: TOpenDialog;
    IdAntiFreeze1: TIdAntiFreeze;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Button2: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Button3: TButton;
    IdHTTP2: TIdHTTP;
    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;



var
  Anti: TIdAntiFreeze;
  image, credit: string;
  Form1: TForm1;
  IdHTTP1: TIdHTTP;
  Accs: TStringList;
  IP, Port: string;
  i: integer;
  log, pass:string;

  procedure doChek2(log,pass: string);
  


implementation

{$R *.dfm}

uses RegExpr_preg;

procedure AddLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
with ARichEdit do begin
SelStart := Length(Text);
SelAttributes.Color := AColor;
SelAttributes.Size := 8;
SelAttributes.Name := 'Tahoma';
Lines.Add(AText);
end;
end;


procedure TForm1.Button1Click(Sender: TObject);

begin 
log:= Edit1.text;
pass:= Edit2.Text;
doChek2(log,pass);
end;







procedure TForm1.FormCreate(Sender: TObject);
begin
Accs:=Tstringlist.create;
Anti:= TIdAntiFreeze.Create(idhttp1);

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Anti.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Edit3.Text:= ExtractFileName(OpenDialog1.FileName);
Accs.Clear;
Accs.LoadFromFile(OpenDialog1.FileName);
i:= 0;

end
else
end;


procedure TForm1.Button3Click(Sender: TObject);
{var
log,pass: string; }
begin
if i < Accs.Count then begin
log:= Copy(Accs[i],1, Pos(Edit4.Text, Accs[i])-1);
pass:= Copy(Accs[i],Pos(Edit4.Text, Accs[i])+1, Length(Accs[i]));
Inc(i);

doChek2(log,pass);
end
else
AddLine(Memo1, 'Àêêàóíòû çàêîí÷èëèñü..', clWhite);
end;

end.

Скрин ошибки:
http://s015.radikal.ru/i331/1209/07/a5adf403daac.jpg

И указывает на строку

doChek2(log,pass);

В чем проблема ?

[Emperator12]

Код процедуры doChek2

procedure doChek2(log,pass: string);
var
t,t1:TStringList;
Data: TStrings;
Post,img, Post1, c: string;
res,res1: TPregArray;
begin

 Form1.idhttp1:= Form1.idhttp1.Create(nil);
 Form1.idhttp1.AllowCookies:= true;
 Form1.idhttp1.HandleRedirects:= true;
 Data:= Tstringlist.Create;
 Data.Add('login=');
 Data.Add('password=');
 Data.Add('sumbit=%C2%EE%E9%F2%E8');
 Data.Add('remember=');
 AddLine(Form1.Memo1, 'Âõîäèì íà ñàéò..', clGreen);
 Application.ProcessMessages;

 Post:= Form1.IdHTTP1.Post('http://cfire.mail.ru/auth/login/?', Data);
 Application.ProcessMessages;
 idhttp1.AllowCookies:= false;
 //showmessage(idhttp1.Request.URL);
 if Pos('/auth/sendpass/?err=2',Form1.IdHTTP1.Request.URL) <> 0  then begin
 AddLine(Form1.Memo1, 'IP has been detected', clPurple);



 end else if Pos('/auth/sendpass/?err=3', Form1.idHTTP1.Request.URL) or Pos('/auth/sendpass/?err=1', idHTTP1.Request.URL) <> 0 then begin
 AddLine(Form1.Memo1, ' -Àêê íå âàëèä..', clBlue);
 Application.ProcessMessages
 end else

 if Pos('Âûõîä',Post) <> 0 then  begin
 AddLine(Form1.Memo1, ' -Âõîä óñïåøåí !', clGreen);
 Application.ProcessMessages;
 post1:= Form1.IdHTTP1.Post('http://cfire.mail.ru/account/invite', Data);
 Application.ProcessMessages;

 if preg.match_all('#Ó âàñ íà ñ÷åòó: 0 êðåäèòîâ#', post1, res1) then begin
 c:= res1[0].Text;
 t1:= Tstringlist.Create;
 t1.Text:= stringreplace(c, #13#10, #13#10, [rfReplaceAll]);
 credit:= t1[0];
 AddLine(Form1.Memo1, ' -'+credit, clLime);
 Application.ProcessMessages;

 end;
 AddLine(Form1.Memo1, ' -Ïîëó÷àåì çâàíèå..', clYellow);
 Data.Add('typeimgn=3');

 post:=Form1.IdHTTP1.Post('http://cfire.mail.ru/account/userbar/set/?',Data);
  //Form1.idhttp1.Free;
  //Data.Free;
 if preg.match_all('#http://cfire.mail.ru/images/userbars/(.+)/389x80.jpg#', post, res) then begin
    Application.ProcessMessages;
  img:= res[0].Text;
  t:= Tstringlist.Create;
  t.text:=stringReplace(img,' ',#13#10,[rfReplaceAll]);
  image:= t[0];
  Form1.idantifreeze1.Process;
   if URLDownloadToFile( nil, PChar( image ),
    PChar( ExtractFilePath( Application.ExeName ) + 'image.jpg' ), 0, nil ) = 0 then
   Form1. idantifreeze1.Process;
    Form1.image1.Picture.LoadFromFile( ExtractFilePath( Application.ExeName ) + 'image.jpg' );
    Application.ProcessMessages;
    Form1.idantifreeze1.Process;
    AddLine(Form1.Memo1, ' -Çâàíèå ïîëó÷åíî !', clYellow);
    Application.ProcessMessages;
    end
    else
   AddLine(Form1.Memo1, ' -Îøèáêà ïîëó÷åíèÿ çâàíèÿ..', clYellow);
    Application.ProcessMessages;
    Form1.idantifreeze1.Process;




end
else
AddLine(Form1.Memo1, 'Îøèáêà !', clRed);

end;

[саша40]

Процедуру пропиши после слова Private
Примерно тут:

  private
    { Private declarations }
doChek2(log,pass);

[Emperator12]

',' or ':' expected but '(' found

[Sciv]

компилятор нашел скобку вместо запятой или двоеточия. У Вас в синтаксисе проблема, где-то либо недописали, либо лишнего добавили

[evg_m]

Процедуру пропиши после слова Private
Примерно тут:

прописывать надо ТАК

  private
    { Private declarations }
 procedure doChek2(log,pass);

[Emperator12]

Нет. Просто саша40, не правильно подсказал.

[Emperator12]

Сообщение от evg_m

прописывать надо ТАК

  private
    { Private declarations }
 procedure doChek2(log,pass);

Missing parameter type. He указан тип формального параметра-значения или параметра процедурного типа.

[Sciv]

 procedure doChek2(log,pass: string);