\r
 MyFiles:=TStringList.Create;\r

var\r
  i:integer;\r
begin\r
  Application.Initialize;\r
  Application.Title := \'My Editor\';\r
  Application.CreateForm(TFormMain, FormMain);\r
  if ParamCount> 0  then\r
  begin\r
    begin\r
      FormMain.MyFiles.Clear;\r
      for i:= 0  to ParamCount- 1  do\r
        FormMain.MyFiles.Add(ParamStr(i))\r
    end;\r
  end;\r
  Application.Run;\r
end.

var\r
  frmChild:TFormChild;\r
  List1: file of PhoneEntry;\r
  Data: PhoneEntry;\r
  i:integer;\r
begin\r
  for i:= 0  to MyFiles.Count- 1  do\r
  begin\r
    if ExtractFileExt(MyFiles.Strings[i])=\'.exe\' then continue;\r
    AssignFile( list1, MyFiles.Strings[i] );\r
    Reset( list1 );\r
    Read( list1, Data );\r
    frmChild:=TFormChild.Create(self);\r
    frmChild.Show;\r
    frmChild.MyMetodUploadFromDB(Data.ID);\r
    CloseFile(list1);\r
  end;\r
end;