TZF - Topaz - but rather a Delphi question

Hello

Changing my DOS Files to Delphi and Topaz, I can't continue. My problem is
the following:

As I am a dentist, I make a daily schedule with the patients ( maybe as an
example Patient-Nr. 15, 60,300 ). These patients are in a file called
Dailey_Patient.dbf
After having done my work, I want to attach to each patient the treatments
I've done, with two TzMaskEdit-Components for the treatment-number and the
treatment-quantity.

With DOS I did e.g.

treatment-number:=999;
While not eof (Daily-Patients) do begin
  repeat
    readln (sayget) : treatment-number
    readln (sayget) : treatment-quatity
    if treatment-number<>0 then begin
      ... write to treatment.dbf the Daily-Patient, treatment-number,
treatment-quatity
    end;
  until treatment-number=0;
 end;

How can I achieve to enter the "while not eof (Daily-Patients) do
begin"-loop and enter the two TzEditMask-Components similar to DOS ?

Thank you for your help.

Pierre Wittwer
6370 Stans
Switzerland

==^================================================================
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
==^================================================================