Label

[Zaraaa]

помогите, у меня в label1.caption:=label1.caption+inttostr(i)+')' + buf;
inttostr(i) берется с 3 строки? почему? и как исправить?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
     procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Var buf:string;
    f,g:textfile;
    i,n:integer;
Begin
AssignFile (f,'C:\f.txt');
AssignFile (g,'C:\g.txt');
n:=StrToIntDef(InputBox('Введите количество строк файла f:','',''),0);
rewrite(f);
for i:=1 to n do
 Begin
 writeln (f,InputBox('Введите '+IntToStr(i)+'-ю строку:','',''));
 End;
closefile (f);
reset(f);
rewrite(g);
while not eof(f) do
 begin
 readln (f,buf);
 buf:=' '+buf;
 writeln (g,buf);
label1.caption:=label1.caption+inttostr(i)+')' + buf;
 end;
closefile (f);
closefile (g);
ShowMessage('Выполнено!');
end;
end.

[Zaraaa]

вот программа

[Vanta11a]

Не с 3й, а с последней введенной.
Причина в том, что у Вас переменная i меняется только в цикле ввода из InputBox`ов.