Сформировать текстовый файл, содержащий сведения о сотрудниках предприятия (фамилия, имя, отчество, общий стаж...) (Delphi)

[Kat9]

Сформировать текстовый файл, содержащий сведения о сотрудниках предприятия (фамилия , имя , отчество, общий стаж , размер оклада которых превышает 10000 рублей.

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses   inifiles,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var  ini:TIniFile;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;  s:string;
begin
   ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))); i:=0;
   repeat
     s:=InputBox('Фамилия','','');           ini.WriteString(IntToStr(i),'F',s);
     s:=InputBox('Имя','','');           ini.WriteString(IntToStr(i),'I',s);
     s:=InputBox('Отчество','','');           ini.WriteString(IntToStr(i),'O',s);
     s:=InputBox('Стаж','','');           ini.WriteInteger(IntToStr(i),'stage',StrToIntDef(s,0));
     s:=InputBox('Оклад','','');           ini.WriteFloat(IntToStr(i),'oklad',StrToFloatDef(s,0));
   until s='';
   ini.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var st:TStringList;i:integer;ok:Double;
begin
   st:=TStringList.Create;
   ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))); i:=0;
   ini.ReadSections(st);
   for i:=0 to st.Count-1 do begin
     ok:=ini.ReadFloat(IntToStr(i),'oklad',0);
     if ok>10000 then Continue;
     Memo1.Lines.Append(ini.ReadString(IntToStr(i),'F'),'');
     Memo1.Lines.Append(ini.ReadString(IntToStr(i),'I'),'');
     Memo1.Lines.Append(ini.ReadString(IntToStr(i),'O'),'');
     Memo1.Lines.Append(ini.ReadString(IntToStr(i),'stage'),0);
     Memo1.Lines.Append(ini.ReadString(IntToStr(i),'oklad'),0);
   end;
   ini.Free;
end;

end.

Подходит такой вид текстового файла?

[Kat9]

А можно мне исходник скинуть архивом ) потому как не получается запустить выдает ошибки , как я понела тут еще надо добавить кнопки на форму и поле мемо )