type tperson=
record
  Vorname: string;
  Name : string;
  Alter : integer;
end;
var person: array [1..100]of tperson;

procedure TForm1.Button1Click(Sender:TObject);
var i:integer;
begin
  for i:= 1 to 100 do
    begin
    if person[i].Vorname= '' then
      begin
        person[i].Vorname:= edit1.text;
        person[i].Name:= edit2.Text;
        person[i].Alter:= strtoint(edit3.Text);
        exit
      end;
    end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin
  edit1.text:='';
  edit2.text:='';
  edit3.text:='';
end;

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
   for i:= 1 to 100 do
      begin
       if edit4.Text = person[i].Name then
          exit;
          edit2.Text:= person[i].Name;
          edit1.Text:= person[i].Vorname;
          edit3.Text:= inttostr(person[i].Alter);

          edit4.Text:= '';
       end;

end;
end.