procedure TUL_Form.BtnFileClick(Sender: TObject);
begin
If OpenDlg.Execute Then Begin
TxtFile.Text := OpenDlg.FileName;
End;
end;
procedure TUL_Form.BtnImportClick(Sender: TObject);
ImportAscIIData(TxtFile.Text);
Close;