Странная ошибка.

unit main;
 
interface
 
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ComCtrls, FileCtrl, DB, IBCustomDataSet,
  IBDatabase, IBQuery, IBTable, ExtCtrls, DBCtrls, rep_ind, comobj, Grids,
  DBGrids;
 
type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    FileListBox1: TFileListBox;
    ListBox2: TListBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Memo2: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button3: TButton;
    Button4: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource4: TDataSource;
    IBDatabase1: TIBDatabase;
    IBQuery1: TIBQuery;
    temp: TIBQuery;
    IBTransaction1: TIBTransaction;
    IBTable1: TIBTable;
    IBTable2: TIBTable;
    Memo1: TMemo;
    Edit1: TEdit;
    DataSource3: TDataSource;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    function GetFileDateTime(FileName: string): TDateTime;
    procedure ExtrData(k:integer) ;
    procedure ListBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ListBox2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure ListBox2DblClick(Sender: TObject);
    procedure FileListBox1Change(Sender: TObject);
    procedure FileListBox1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    
    function CntRecurrences(substr, str: string): integer;
    function Replace(Str, X, Y: string): string;
    procedure Edit1Click(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  path:string;
  oned:boolean;
 
implementation
 uses rep, asd, Unit5, Unit400;
{$R *.dfm}
function TForm1.Replace(Str, X, Y: string): string;
var
 buf1,buf2, buffer:string;
 i:Integer;
Begin
 buf1:='';
 buf2:=Str;
 Buffer:=Str;
 
 while Pos(X,buf2) > 0 do
 begin
   buf2:=Copy(buf2, Pos(X,buf2), (Length(buf2) - Pos(X, buf2)) + 1);
   buf1:=Copy(Buffer, 1, Length(Buffer)- Length(buf2)) + Y;
   Delete(Buf2, Pos(X,buf2), Length(X));
   Buffer := buf1 + buf2;
  end;
 
  Replace := Buffer;
end;
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
dd:TDateTime;
f:system.text;
    s,s1,s2:string;
    path:string;
    i,j,k:integer;
begin
 button1.Enabled:=true;
 button3.Enabled:=true;
 listbox1.Clear;
 ibtable2.EmptyTable;
 form400.show;
 form400.Gauge1.Progress:=0;
 form400.Gauge1.MaxValue:=filelistbox1.Count;
  for i:=0 to filelistbox1.count-1 do
  begin
    dd:=getfiledatetime(path+filelistbox1.Items.Strings[i]);
 
      ibtable2.Insert;
      ibtable2.Fields.Fields[0].Text:=filelistbox1.Items.Strings[i];
      ibtable2.Fields.Fields[10].AsDateTime:=dd;
      ibtable2.Post;
      form400.Gauge1.Progress:= form400.Gauge1.Progress+1;
    end;
    form400.close;
 
  temp.Close;
  temp.SQL.Text:='select NAME, DAT from TMP where DAT>="'+datetostr(datetimepicker1.datetime)+' 00:00" order by DAT DESC';
  temp.Open;
  temp.First;
  repeat
 
    listbox1.AddItem(temp.Fields.Fields[0].text, form1);
    temp.Next
  until temp.Eof;
 end;
 
   function Tform1.GetFileDateTime(FileName: string): TDateTime;
var
  intFileAge: LongInt;
begin
  intFileAge := FileAge(FileName);
  if intFileAge = -1 then
    Result := 0
  else
    Result := FileDateToDateTime(intFileAge)
end;
    procedure TForm1.FormCreate(Sender: TObject);
var
dd:TDateTime;
f:system.text;
    s,s1,s2:string;
    path:string;
    i,j,k:integer;
    lt:tsystemtime;
begin
  oned:=false;
  datetimepicker1.DateTime:=now;
 
  path:=''; {âûáîð ìåñòà èñõîäíûõ ïèñåì}
  filelistbox1.Directory:=path;;
  ibtable1.EmptyTable;
  ibtable2.EmptyTable;
end;
 
  function TFORM1.CntRecurrences(substr, str: string): integer;
var
  cnt, p: integer;
begin
  cnt := 0;
  while str <> '' do
  begin
    p := Pos(substr, str);
    if p > 0 then
      inc(cnt)
    else
      p := 1;
    Delete(str, 1, (p + Length(substr) - 1));
  end;
  Result := cnt;
end;
procedure TForm1.ExtrData(k:integer) ;
var f:system.text;
    s:string;
    path:string;
    dd:TDateTime;
    i,j:integer;
begin
 
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var s1,s2, s:string;
    f:system.text;
    i,j,k,z,x:integer;
    dd:tdatetime;
begin
  i:=listbox1.ItemIndex;
  assignfile(f,path+listbox1.Items.Strings[i]);
  dd:=getfiledatetime(path+listbox1.Items.Strings[i]);
  reset(f);
  readln(f,s);
  s:=copy(s,29,length(s));
  edit2.Text:=datetostr(dd);
  edit3.Text:=s;
 
  readln(f,s);
  s:=copy(s,18,length(s));
  edit3.Text:=s;
 
  readln(f,s);
  s:=copy(s,15,length(s));
 
  edit5.Text:=s;
  readln(f,s);
  s:=copy(s,23,length(s)) ;
  k:=CntRecurrences('\"', s);
 
       for z:=0 to k do s:=replace(s,'\"','*' );
  edit6.Text:=s;
 
    repeat
  readln(f,s);
  s1:=s1+s;
  until eof(f);
  s:=s1;
  i:=pos('<b>Òåëåôîí:</b>',s);
  s:=copy(s,14, i-length('<b>Òåëåôîí:</b>')+1);
       k:=CntRecurrences('<br>', s);
 
       for z:=0 to k do s:=replace(s,'<br>',' ' );
    k:=CntRecurrences('<br />', s);
 
       for z:=0 to k do s:=replace(s,'<br />',' ' );
    edit7.Text:=s;
 
 
  s:=s1;
  s:=copy(s,i,length(s) );
  j:=pos('<b>Òåêñò ñîîáùåíèÿ:</b>',s);
  s:=copy(s,16,j-16);
  k:=CntRecurrences('<br>', s);
 
       for z:=0 to k do s:=replace(s,'<br>',' ' );
  edit8.Text:=s;
 
 
  s:=s1;
  i:=pos('<b>Òåêñò ñîîáùåíèÿ:</b>',s);
  s:=copy(s,i,length(s));
  j:=pos('<b>Îòçûâ î ñàéòå:</b>',s);
  s:=copy(s,24,j-length('<b>Îòçûâ î ñàéòå:</b>')-3);
   k:=CntRecurrences('<br>', s);
 
       for z:=0 to k do s:=replace(s,'<br>',' ' );
    k:=CntRecurrences('<br />', s);
    k:=CntRecurrences('\"', s);
 
       for z:=0 to k do s:=replace(s,'\"','*' );
      k:=CntRecurrences('<br />', s);
 
       for z:=0 to k do s:=replace(s,'<br />',' ' );
   memo1.Text:=s;
 
 
  s:=s1;
  i:=pos('<b>Îòçûâ î ñàéòå:</b>',s);
  s:=copy(s,i+21, length(s));
 k:=CntRecurrences('\"', s);
 
       for z:=0 to k do s:=replace(s,'\"','*' );
      k:=CntRecurrences('<br />', s);
  k:=CntRecurrences('<br>', s);
  for z:=0 to k do s:=replace(s,'<br>','' );
  k:=CntRecurrences('<br />', s);
  for z:=0 to k do s:=replace(s,'<br />',' ' );
  memo2.Text:=s;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
k, i:integer;
present:boolean;
begin
  button4.Enabled:=true;
  button2.Enabled:=true;
  k:=listbox1.ItemIndex;
  for i:=0 to listbox2.Count-1 do
  begin
    if listbox1.Items.Strings[k]=listbox2.Items.Strings[i] then present:=true;
  end;
  if present=false then
  begin
    try
      ibtable1.insert;
      ibtable1.Fields.Fields[0].AsString:=listbox1.Items.strings[k];
      ibtable1.Fields.Fields[1].text:=edit2.Text;
      ibtable1.Fields.Fields[2].AsString:=edit3.Text;
      ibtable1.Fields.Fields[3].AsString:=edit4.Text;
      ibtable1.Fields.Fields[4].AsString:=edit5.Text;
      ibtable1.Fields.Fields[5].AsString:=edit6.Text;
      ibtable1.Fields.Fields[6].AsString:=edit7.Text;
      ibtable1.Fields.Fields[7].AsString:=edit8.Text;
      ibtable1.Fields.Fields[8].AsString:=memo1.Text;
      ibtable1.Fields.Fields[9].AsString:=memo2.Text;
      ibtable1.post;
    except on EStringListError  do showmessage('Íè÷åãî íå âûáðàíî')end;
  end;
 
    temp.Close;
    temp.SQL.Clear;
    temp.SQL.Text:='select * from FROM_INET order by DATEOF desc';
    temp.open;
    temp.First;
    listbox2.Clear;
    repeat
 
      listbox2.AddItem(temp.Fields.Fields[0].Text, form1);
      temp.Next;
    until temp.Eof;
    end;
 
procedure TForm1.ListBox2Click(Sender: TObject);
var k:integer;
begin
  ibtable1.Refresh;
  ibtable2.Refresh;
  k:=listbox2.ItemIndex;
  temp.Close;
  temp.SQL.Clear;
  temp.SQL.Text:='select * from FROM_INET where NAME ="'+ listbox2.Items.Strings[k]+'"';
  temp.Open;
 
  edit2.Text:=temp.Fields.Fields[1].Text;
  edit3.Text:=temp.Fields.Fields[2].Text;
  edit4.Text:=temp.Fields.Fields[3].Text;
  edit5.Text:=temp.Fields.Fields[4].Text;
  edit6.Text:=temp.Fields.Fields[5].Text;
  edit7.Text:=temp.Fields.Fields[6].Text;
  edit8.Text:=temp.Fields.Fields[7].Text;
  memo1.Text:=temp.Fields.Fields[8].Text;
  memo2.Text:=temp.Fields.Fields[9].Text;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,x,z,k,y:integer;
dd:tdatetime;
f:system.text;
s,s1,s2:string;
begin
  listbox2.Clear;
  ibtable1.EmptyTable;
  ibtable1.Refresh ;
  button4.Enabled:=true;
  button2.Enabled:=true;
  for y:=0 to listbox1.count-1 do
  begin
      assignfile(f,path+listbox1.Items.Strings[y]);
      dd:=getfiledatetime(path+listbox1.Items.Strings[y]);
      reset(f);
      readln(f,s);
      s:=copy(s,29,length(s));
      ibtable1.Insert;
      listbox2.AddItem(listbox1.Items.Strings[y], form1);
      ibtable1.Fields.Fields[0].Text:=listbox1.Items.Strings[y];
      ibtable1.Fields.Fields[1].Text:=datetostr(dd);
      ibtable1.Fields.Fields[2].Text:=s;
 
      readln(f,s);
      s:=copy(s,18,length(s));
      ibtable1.Fields.Fields[3].Text:=s;
 
      readln(f,s);
      s:=copy(s,15,length(s));
      ibtable1.Fields.Fields[4].Text:=s;
 
      readln(f,s);
      s:=copy(s,23,length(s)) ;
      ibtable1.Fields.Fields[5].Text:=s;
 
      repeat
        readln(f,s);
        s1:=s1+s;
      until eof(f);
 
      s:=s1;
      i:=pos('<b>Òåëåôîí:</b>',s);
      s:=copy(s,14, i-length('<b>Òåëåôîí:</b>')+1);
      k:=CntRecurrences('<br>', s);
 
      for z:=0 to k do s:=replace(s,'<br>',' ' );
      k:=CntRecurrences('<br />', s);
      for z:=0 to k do s:=replace(s,'<br />',' ' );
      ibtable1.Fields.Fields[6].Text:=s;
 
      s:=s1;
      s:=copy(s,i,length(s) );
      j:=pos('<b>Òåêñò ñîîáùåíèÿ:</b>',s);
      s:=copy(s,16,j-16);
      k:=CntRecurrences('<br>', s);
      for z:=0 to k do s:=replace(s,'<br>',' ' );
      ibtable1.Fields.Fields[7].Text:=s;
 
      s:=s1;
      i:=pos('<b>Òåêñò ñîîáùåíèÿ:</b>',s);
      s:=copy(s,i,length(s));
      j:=pos('<b>Îòçûâ î ñàéòå:</b>',s);
      s:=copy(s,24,j-length('<b>Îòçûâ î ñàéòå:</b>')-3);
      k:=CntRecurrences('<br>', s);
      for z:=0 to k do s:=replace(s,'<br>',' ' );
      k:=CntRecurrences('\"', s);
 
      for z:=0 to k do s:=replace(s,'\"','"' );
      k:=CntRecurrences('<br />', s);
      for z:=0 to k do s:=replace(s,'<br />',' ' );
      ibtable1.Fields.Fields[8].Text:=s;
 
      s:=s1;
      i:=pos('<b>Îòçûâ î ñàéòå:</b>',s);
      s:=copy(s,i+21, length(s));
      k:=CntRecurrences('<br>', s);
      for z:=0 to k do s:=replace(s,'<br>',' ' );
      k:=CntRecurrences('<br />', s);
 
      for z:=0 to k do s:=replace(s,'<br />',' ' );
      ibtable1.Fields.Fields[9].Text:=s;
      ibtable1.Post;
      closefile(f);
    end;
 
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var k:integer;
begin
oned:=false;
  k:=listbox2.ItemIndex;
  temp.Close;
  temp.SQL.Clear;
  try
    temp.SQL.Text:='select * from FROM_INET where NAME ="'+ listbox2.Items.Strings[k]+'"';
    temp.Open;
    temp.SQL.Clear;
    temp.SQL.Text:='update  FROM_INET SET  DATEOF = "'+edit2.text + '",'+
    'FIO="'+edit3.Text +'", RANG="'+edit4.Text +'", MAIL="'+edit5.Text +'", FIRMA="'+
    edit6.Text+'", ADR="'+edit7.Text+'", PHONE="'+edit8.Text+'",TEXT="'+
    memo1.Text+'", COMMENTS="'+memo2.Text+'"'+
    'where NAME ="'+ listbox2.Items.Strings[k]+'"';
    temp.Open;
  except on EStringListError do showmessage('Íè÷åãî íå âûáðàíî!');end;
 
 ibtable1.Refresh;
 ibtable2.Refresh;
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var XlApp, Sheet, Colum:variant;
    index:integer;
 
begin
  ibtable1.Refresh;
  XLApp:=CreateOLEObject('Excel.Application');
  XLApp.workbooks.add(-4167);
  XLApp.workbooks[1].worksheets[1].name:='Çàÿâêè';
  Colum:=XLApp.workbooks[1].worksheets['Çàÿâêè'].columns;
  Colum.Columns[1].ColumnWidth:=10;
  Colum.Columns[2].ColumnWidth:=15;
  Colum.Columns[3].ColumnWidth:=15;
  Colum.Columns[4].ColumnWidth:=15;
  Colum.Columns[5].ColumnWidth:=15;
  Colum.Columns[6].ColumnWidth:=15;
  Colum.Columns[7].ColumnWidth:=15;
  Colum.Columns[8].ColumnWidth:=50;
  Colum.Columns[9].ColumnWidth:=50;
  Sheet:=XLApp.workbooks[1].worksheets['Çàÿâêè'];
 
  Sheet.cells[1,1]:='×èñëî';
  Sheet.cells[1,2]:='Èìÿ' ;
  Sheet.cells[1,3]:='Äîëæíîñòü';
  Sheet.cells[1,4]:='e-mail'    ;
  Sheet.cells[1,5]:='Íàçâàíèå ôèðìû';
  Sheet.cells[1,6]:='Àäðåñ';
  Sheet.cells[1,7]:='Òåëåôîí';
  Sheet.cells[1,8]:='Òåêñò';
  Sheet.cells[1,9]:='Êîììåíòàðèè';
  index:=2;
  IBTable1.First;
   temp.Close;
   temp.SQL.Clear;
   temp.SQL.Text:='select * from FROM_INET order by DATEOF';
   temp.Open;
   temp.First;
  repeat
    //sheet.cells[index,1].numberformat:='@';
    sheet.cells[index,1].WrapText:=true;
    sheet.cells.VerticalAlignment := true;;
    sheet.cells[index,1]:=temp.Fields.Fields[1].AsString;
    //sheet.cells[index,1].numberformat:='@';
 
    //sheet.cells[index,2].numberformat:='@';
    sheet.cells[index,2].WrapText:=true;
    sheet.cells[index,2]:=temp.Fields.Fields[2].AsString;
    //sheet.cells[index,2].numberformat:='@';
 
    //sheet.cells[index,3].numberformat:='@';
    sheet.cells[index,3].WrapText:=true;
    sheet.cells[index,3]:=temp.Fields.Fields[3].AsString;
    //sheet.cells[index,3].numberformat:='@';
 
    //sheet.cells[index,4].numberformat:='@';
    sheet.cells[index,4].WrapText:=true;
    sheet.cells[index,4]:=temp.Fields.Fields[4].AsString;
    //sheet.cells[index,4].numberformat:='@';
 
    //sheet.cells[index,5].numberformat:='@';
    sheet.cells[index,5].WrapText:=true;
    sheet.cells[index,5]:=temp.Fields.Fields[5].AsString;
    //sheet.cells[index,5].numberformat:='@';
 
    //sheet.cells[index,6].numberformat:='@';
    sheet.cells[index,6].WrapText:=true;
    sheet.cells[index,6]:=temp.Fields.Fields[6].AsString;
    //sheet.cells[index,6].numberformat:='@';
 
    //sheet.cells[index,7].numberformat:='@';
    sheet.cells[index,7].WrapText:=true;
    sheet.cells[index,7]:=temp.Fields.Fields[7].AsString;
    //sheet.cells[index,7].numberformat:='@';
 
    //sheet.cells[index,8].numberformat:='@';
    sheet.cells[index,8].WrapText:=true;
    sheet.cells[index,8]:=temp.Fields.Fields[8].AsString;
    //sheet.cells[index,8].numberformat:='@';
 
    //sheet.cells[index,9].numberformat:='@';
    sheet.cells[index,9].WrapText:=true;
    sheet.cells[index,9]:=temp.Fields.Fields[9].AsString;
    //sheet.cells[index,9].numberformat:='@';
 
    //sheet.cells[index,10].numberformat:='@';
    index:=index+1;
    temp.Next;
 
  until temp.Eof;
 
  XLApp.visible:=true;
 
end;
 
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
k, i:integer;
present:boolean;
begin
  button4.Enabled:=true;
  button2.Enabled:=true;
  k:=listbox1.ItemIndex;
  for i:=0 to listbox2.Count-1 do
  begin
    if listbox1.Items.Strings[k]=listbox2.Items.Strings[i] then present:=true;
  end;
  if present=false then
  begin
    try
      listbox2.AddItem(listbox1.Items.strings[k], form1);
      ibtable1.insert;
      ibtable1.Fields.Fields[0].AsString:=listbox1.Items.strings[k];
      ibtable1.Fields.Fields[1].text:=edit1.Text;
      ibtable1.Fields.Fields[2].AsString:=edit2.Text;
      ibtable1.Fields.Fields[3].AsString:=edit3.Text;
      ibtable1.Fields.Fields[4].AsString:=edit4.Text;
      ibtable1.Fields.Fields[5].AsString:=edit5.Text;
      ibtable1.Fields.Fields[6].AsString:=edit6.Text;
      ibtable1.Fields.Fields[7].AsString:=edit7.Text;
      ibtable1.Fields.Fields[8].AsString:=memo1.Text;
      ibtable1.Fields.Fields[9].AsString:=memo2.Text;
      ibtable1.post;
    except on EStringListError  do showmessage('Íè÷åãî íå âûáðàíî')end;
  end;
 
end;
 
procedure TForm1.ListBox2DblClick(Sender: TObject);
var k:integer;
begin
 
end;
 
 
procedure TForm1.FileListBox1Change(Sender: TObject);
var s1,s2, s:string;
    ss:array[1..10] of string ;
f:system.text;
i,j:integer;
begin
 
end;
 
procedure TForm1.FileListBox1Click(Sender: TObject);
var s1,s2, s:string;
    ss:array[1..10] of string ;
f:system.text;
i,j:integer;
begin
  ibtable2.insert;
  i:=filelistbox1.ItemIndex;
  assignfile(f,path+filelistbox1.Items.Strings[i]);
  reset(f);
  readln(f,s);
  s:=copy(s,29,length(s));
 
  ibtable2.Fields.Fields[2].Text:=s;
  readln(f,s);
  s:=copy(s,18,length(s));
 
  ibtable2.Fields.Fields[3].Text:=s;
  readln(f,s);
  s:=copy(s,15,length(s));
  ibtable2.Fields.Fields[4].Text:=s;
 
  readln(f,s);
  s:=copy(s,23,length(s)) ;
  ibtable2.Fields.Fields[5].Text:=s;
 
  repeat
    readln(f,s);
    s1:=s1+s;
  until eof(f);
  s:=s1;
  i:=pos('<b>Òåëåôîí:</b>',s);
  s:=copy(s,14, i-length('<b>Òåëåôîí:</b>')+1);
  ibtable2.Fields.Fields[6].Text:=s;
 
  s:=s1;
  s:=copy(s,i,length(s) );
  j:=pos('<b>Òåêñò ñîîáùåíèÿ:</b>',s);
  s:=copy(s,16,j-16);
  ibtable2.Fields.Fields[7].Text:=s;
 
  s:=s1;
  i:=pos('<b>Òåêñò ñîîáùåíèÿ:</b>',s);
  s:=copy(s,i,length(s));
  j:=pos('<b>Îòçûâ î ñàéòå:</b>',s);
  s:=copy(s,24,j-length('<b>Îòçûâ î ñàéòå:</b>')-3);
  ibtable2.Fields.Fields[8].Text:=s;
 
  s:=s1;
  i:=pos('<b>Îòçûâ î ñàéòå:</b>',s);
  s:=copy(s,i+21, length(s));
  ibtable2.Fields.Fields[9].Text:=s;
  ibtable2.post;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  form2.QuickRep1.Preview;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
    var
    k:integer;
begin
  k:=listbox2.ItemIndex;
  ibquery1.Close;
  try
    ibquery1.SQL.Text:='select * from FROM_INET where NAME="'+listbox2.Items.Strings[k]+'"';
    ibquery1.Open;
    form3.QuickRep1.Preview;
  except on EStringListError do showmessage('Íè÷åãî íå âûáðàíî!');end;
end;
 
 
 
procedure TForm1.Edit1Click(Sender: TObject);
var
  Root: string;
  pwRoot : PWideChar;
  Dir: string;
begin
  Root := '';
  GetMem(pwRoot, (Length(Root)+1) * 2);
  pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);
  if not SelectDirectory('Âûáåðèòå ïàïêó', pwRoot, Dir)
     then Dir :=''
     else Dir := Dir+'\';
  Edit1.Text:=Dir;
end;
 
 
end.

begin
  oned:=false;
  datetimepicker1.DateTime:=now;
 
  path:=''; {âûáîð ìåñòà èñõîäíûõ ïèñåì}
  filelistbox1.Directory:=path;;
  ibtable1.EmptyTable;
  ibtable2.EmptyTable;
end;

  oned:=true;
  datetimepicker1.DateTime:=now;
 
  path:=''; 
  filelistbox1.Directory:=path;;
  IBDatabase1.Open;
  IBTransaction1.Active:=True;
  ibtable1.EmptyTable;
  ibtable2.EmptyTable;