Unit-übergreifend arbeiten/Datenaustausch zwischen Units??

[Rayne]

Hallo Leute!

Ich habe folgendes Problem:

Ich habe 2 Formulare.
Im Formular 1 habe ich eine Prozedur „Blättern“, mit der ich durch meinen angelegten Datensatz blättern kann und mir die Daten in Edit-Feldern anzeigt..

Nun möchte ich im Formular 2 auf genau diese Informationen zugreifen. Ich möchte dort also genau durch denselben Datensatz mit derselben Prozedur blättern können.

Jedoch weiß ich nicht ganz genau, wie ich das bewerkstelligen kann

Die Prozedur im Formular 1 heißt:

Delphi-Quellcode:

procedure TForm1.Blttern1Click(Sender: TObject);
begin
  if r<anzahl then
    begin
     edit1.text:=saetze[r].gurtzeug;
     edit2.text:=IntToStr(saetze[r].baujahr1);
     edit3.text:=IntToStr(saetze[r].spruenge1);

     edit4.text:=saetze[r].hauptschirm;
     edit5.text:=IntToStr(saetze[r].baujahr2);
     edit6.text:=IntToStr(saetze[r].spruenge2);

     edit7.text:=saetze[r].reserve;
     edit8.text:=IntToStr(saetze[r].baujahr3);
     edit9.text:=IntToStr(saetze[r].spruenge3);

     edit10.text:=saetze[r].aad;
     edit11.text:=IntToStr(saetze[r].baujahr4);
     edit12.text:=IntToStr(saetze[r].spruenge4);

     Edit13.Text:=IntToStr(saetze[r].preis);
     Edit14.Text:=IntToStr(saetze[r].index);

     r:=r+1;
    end
  else
    begin
      r:=0;
    end;
end;

Genau diesen Quellcode möchte ich auch im Formular 2 verwenden, um mir auch dort diese Informationen anzeigen zu lassen.
Ich brauche quasi so eine Art „Verknüpfung“

Ich meine mich erinnern zu können, dass es dort Befehle gibt wie „uses Unit X“ oder „with Unit X do“, aber so richtig bin ich mir da nicht sicher und ich weiß auch nicht, an welche Stelle diese Befehle müssen

Wäre euch für jede Hilfe sehr dankbar

Rayne