[cezer]

Сообщение от Страдалецъ

...

Вот последовательность:

Код:

глобально 
var
d,p,b: string;

procedure TForm1.FormCreate(Sender: TObject);
begin
d:=FormatDateTime('dd-mm-yyyy-',now);
b:=d+'.txt'
memo1.Lines.LoadFromFile('\\192.168.1.87\Log\'+b);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
memo1.Lines.LoadFromFile('\\192.168.1.87\Log\'+b);
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
memo1.Lines.SaveToFile('Base\'+b);
adoquery1.Active:=true;
end;

Поправьте меня если что то не так сделал или если можно сделать как то проще и лучше. Спасибо!