Текстовые файлы, помогите дописать код программы Опции

[Snord]

Вот такя задачка! Помогите кто может...


Информация об участниках спортивных соревнований содержит:
название команды, фамилию игрока и возраст . Вывести информацию о самой
молодой команде.



Вот код который я набрасал, в нем могут быть ошибки...Помогите написать обработчик кнопки Вывести .
Буду очень признателен.

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    BitBtn1: TBitBtn;
    Memo4: TMemo;
    Memo5: TMemo;
    Memo6: TMemo;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type stud=record
      fam:string[20];
      kom:string[20];
     god : integer;
      end;

var
Form1: TForm1;
f:file of stud;
ft:textfile;
w:stud;
fname,fnamet:string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear; memo2.Clear; memo3.Clear;
edit1.clear; edit2.clear; edit3.clear;

Button1.Hide;
Button5.Hide;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
w.kom:=edit1.text;
w.fam:=edit2.text;
w.god:=strtoint(edit3.text);
write(f,w);
memo1.lines.add(w.kom); //окно команды
memo2.lines.add(w.fam);  // окно фамилий
memo3.lines.add(inttostr(w.god));   // окно возрастов
edit1.clear; edit2.clear; edit3.clear;
  Button5.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SaveDialog1.Title:='Создать файл';
SaveDialog1.DefaultExt:='.dat';
if SaveDialog1.Execute then
  begin
   fname:=SaveDialog1.FileName;
   AssignFile(f,fname);
   Rewrite(f);
  end;

Button1.Show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
OpenDialog1.Title:='Открыть файл';
if OpenDialog1.Execute then
  begin
   fname:=OpenDialog1.FileName;
   AssignFile(f,fname);
   Reset(f);
  end;
memo1.clear; memo2.clear; memo3.clear;
while not eof(f) do
  begin
   read(f,w);
   memo1.lines.add(w.kom);
memo2.lines.add(w.fam);
   memo3.lines.add(inttostr(w.god));

  end;
closeFile(f);

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
SaveDialog1.Title:='Сохранить в текстовом файле';
SaveDialog1.DefaultExt:='.txt';
if SaveDialog1.Execute then
  begin
   fnamet:=SaveDialog1.FileName;
   AssignFile(ft,fnamet);
   Rewrite(ft);
  end;
writeln(ft,'       Команды');
writeln(ft,'   Фамилия возраст');
reset(f);
while not eof(f) do
  begin
   read(f,w);
   with w do
    writeln(ft,kom:10,fam:10,god:10);
  end;
closeFile(f);
closeFile(ft);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin // Вывести


// этот обработчик ?
//выводит в мемо4 мемо5 мемо6 соотвественно

end;
closeFile(f);
end;
end.