Scrollfunktion rückwärts über EOF

[Eddit]

hallo leute,

ich habe ein problem. und zwar habe ich mit TUpDown eine scrollfunktion eingerichtet, um mich durch die daten einer datenbank zu blättern. vorwärts geht es ohne probleme und sogar über EOF hinaus also er beginnt dann am anfang der datenbank. nur hab ich probleme mit dem rückwärtsscrollen. ich habe hier mal den quellcode wie es zurzeit in der prozedur aussieht:

Delphi-Quellcode:

procedure TFormDVD.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var p : byte;
begin
  case Button of
    btNext: begin
              if EOF(VDVDFile) then seek(VDVDFile,0);
                                read(VDVDFile,HV);
                                with VDVD do begin
                                             //Ausgabe
                                             end;
            end;
btPrev:  begin
                p:=filepos(VDVDFile);
               if filepos(VDVDFile)= 2 then begin 
                                            seek(VDVDFile,filesize(VDVDFile));
                                            p:=filepos(VDVDFile);
                                            read(VDVDFile,HV);
                                            with VDVD do begin
                                            //Ausgabe
                                            end;
                                            end
                                       else begin                  
                                            p:=filepos(VDVDFile);
                                            seek(VDVDFile,filepos(VDVDFile)-1);
                                            read(VDVDFile,HV);
                                            with VDVD do begin
                                            //Ausgabe
                                            end;
                                            end;
         end;

hat jemand eine ahnung woran das liegen könnte? danke im voraus!!