F1Book TF1Book Active Cell

[Chippie82]

Habe jetzt einen neue Frage dazu.
Erst mal der Quelltext:

Delphi-Quellcode:

unit Unit1;  

 
interface  

 
uses  
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  
  StdCtrls, AxCtrls, OleCtrls, vcf1;  

 
type  
  TForm1 = class(TForm)  
    Button1: TButton;  
    Button2: TButton;  
    procedure Button1Click(Sender: TObject);  
    procedure Button2Click(Sender: TObject);  
  private  
    { Private-Deklarationen }  
  public  
    { Public-Deklarationen }  
  end;  

 
var  
  Form1: TForm1;  
  Film: String;  
  Ok: Boolean;  
implementation  

 
uses Unit2;  

 
{$R *.DFM}  

 
procedure TForm1.Button1Click(Sender: TObject);  
 begin  
  repeat  
  Ok:= InputQuery('', 'Bitte geben Sie hier den Filmnamen ein', Film);  
   if OK  
    then Form2.f1book1.TextRC[1,1] :=Film;  
     until  
      not OK;  
end;  

 
procedure TForm1.Button2Click(Sender: TObject);  
 begin  
 Form2.Show;  
end;  

 
end.  

 

 

 
unit Unit2;  

 
interface  

 
uses  
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  
  AxCtrls, OleCtrls, vcf1, StdCtrls, ComCtrls;  

 
type  
  TForm2 = class(TForm)  
    Button1: TButton;  
    F1Book1: TF1Book;  
    procedure Button1Click(Sender: TObject);  

 
  private  
    { Private-Deklarationen }  
  public  
    { Public-Deklarationen }  
  end;  

 
var  
  Form2: TForm2;  

 
implementation  

 
uses Unit1;  

 
{$R *.DFM}  

 

 
procedure TForm2.Button1Click(Sender: TObject);  
 begin  
 Form1.Show;  
end;
end.

Wie bekomme ich es jetzt hin, dass ich mit jeder Eingabe nicht immer das gleiche Feld des F1Books beschreibe, sondern dann die nächste Zeile darunter?