Telfonbuch Probleme

[LitleFighter]

Hiho,

ich muss für die Schule das altbekannte Telefonbuch mit Delphi machen. Ich hab mich nun auch schon im Forum umgeschaut aber wirklich weitergebracht hat mich das nicht^^. Mein Plan ist es die Namen und Nummern in ein Stringgrid darzustellen. Ich hab es zu Beginn mit einem Array versucht bin nun aber bei einem Record angelangt aber nun funktioniert dummerweise noch weniger und die eizugebenden Daten werden nichtmal mehr in der Tabelle dargestellt.

Ich pack mal meinen Quelltext dazu und hoffe das ihr mir irgendwie möglichst einfach helfen könnt (hab nich wirklich sehr viel ahnung von Delphi gebe aber mein bestes^^).

Delphi-Quellcode:

unit bubble;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Nummerntabelle: TStringGrid;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


  i: integer;
  j: integer;

implementation

{$R *.dfm}
type
  teintrag=Record
      name,nummer:string
      end;
  telefonbuch = file;
procedure TForm1.Button1Click(Sender: TObject);



begin


if i<=30 then

begin


  i:=strtoint(Edit1.text);
  j:=strtoint(Edit2.Text);
  Nummerntabelle.Cells[1,i]:=inttostr(i);
  Nummerntabelle.Cells[2,j]:=inttostr(j);
  Nummerntabelle.Cells[0,i]:=inttostr(i);

  i:=i+1;
  j:=j+1;
end

else Label3.caption:='Telefonbuch voll';

end;

end.

Ich hoffe auf baldige Antwort.

MfG der Litle