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

procedure TUL_Form.BtnImportClick(Sender: TObject);
begin
	ImportAscIIData(TxtFile.Text);
    Close;
end;

