помогите приделать прогрессбар.

[raxp]

поиграйтесь с точками останова, оно до того цикла вообще доходит

[Mobile™]

она при компиляции ругается на строку -

inc(num_packet);

[raxp]

ну, а покажите как вы задали переменную-num_packet ?

[Mobile™]

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

ну, а покажите как вы задали переменную-num_packet ?

а я не задал. а как ее задать?

[raxp]

а я не задал. а как ее задать?

...задайте
var num_packet: integer;

[Mobile™]

задал-

var
  Form1: TForm1;
  num_packet: integer;
implementation

теперь при компиляции ругается на-

progressbar1.position:= num_packet* 4096 div fs;

код вставил сюда-

procedure TForm1.Button1Click(Sender: TObject);
var
ws : TWSAData;
s : string;
begin
WSAStartup($101, ws);
s := SendFile(Edit1.Text, '/get.php', opendialog1.FileName);
ShowMessage(s);
inc(num_packet);
progressbar1.position:= num_packet* 4096 div fs;
end;

[raxp]

код вставил сюда

- явно не сюда... речь шла о цикле

[Mobile™]

вставил сюда-

 while true do
        begin
          rb := 0;
          // ÷èòàåì 4 êèëà èç ôàéëà
          ReadFile(hFile, buf, 4096, rb, nil);
          if rb = 0 then break; // åñëè íå ñ÷èòàëîñü òî âûõîä èç öèêëà
          send(sock, buf, rb, 0); // ïîøëåì ñ÷èòàííûå äàííûå
          inc(num_packet);
          ProgressBar.position:= num_packet* 4096 div fs;

        end;

при компиляции ошибки. ниже-

[Warning] Unit1.pas(63): Comparison always evaluates to True
[Warning] Unit1.pas(63): Comparing signed and unsigned types - widened both operands
[Warning] Unit1.pas(95): Combining signed and unsigned types - widened both operands
[Error] Unit1.pas(107): Undeclared identifier: 'ProgressBar'
[Error] Unit1.pas(107): Missing operator or semicolon
[Warning] Unit1.pas(107): Combining signed and unsigned types - widened both operands
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[raxp]

компонент progressbar на форме есть?
имя у него какое?

[Mobile™]

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

компонент progressbar на форме есть?
имя у него какое?

конечно есть-

type
  TForm1 = class(TForm)
    send: TButton;
    OpenDialog1: TOpenDialog;
    open: TButton;
    ListBox1: TListBox;
    clear: TButton;
    ProgressBar: TProgressBar;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;