Delphi - Traducir a Delphi un bucle

Hola soy Josemi, estoy empezando a usar Delphi 3.0 y se me hace un poco complicado. Me gustaría un poco de ayuda. Como podría poner este bucle en Delphi:
Abrir FicheroSaldo
Leer FicheroSaldo (Registro FicheroSaldo ) siguiente
Mientras no fin fichero
Si CBTipo(este es campo)= ingreso entonces
ingreso=ingreso+cantidad
Finsi
Leer FicheroSaldo (Registro FicheroSaldo ) siguiente
FinMientras

Suponiendo que el fichero lo tengas asociado a un TTable que llamamos TFichero:

TFichero.Open;
TFichero.First; //Esto no es necesario, pero siempre lo hago.

while not TFichero.Eof do begin

if ... then begin
Ingreso = Ingreso + Cantidad;
...
end;{if}

TFichero.Next; //Leemos el sigte. registro

end;{while}

Espero que te sirva de ayuda.

Un saludo.