[OttO]

Помогите мне соеденить отчёт с самой программой....
вот листинг программы:

Код:

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    Memo3: TMemo;
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    N2: TMenuItem;
    BitBtn1: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Memo2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    SL, SLWords : TStringList;
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit1, Unit2, Unit6;

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);
begin

  SL := TStringList.Create;
  SL.LoadFromFile('words.txt');\\текстовый документ со словами......  
  SLWords := TStringList.Create;
end;

procedure TForm5.FormDestroy(Sender: TObject);
begin
SLWords.Free;
  SL.Free;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
begin

  Timer1.Enabled := False;
  Memo1.Clear;
  Label2.Caption := 'Солво ввода';
end;

procedure TForm5.Button1Click(Sender: TObject);
var
  I, K : Integer;
begin
  Label2.Caption := '';
 
  Randomize;
  Memo1.Clear;
  Memo2.Clear;
  Memo3.Clear;
  SLWords.Clear;
  for I := 0 to 5 do begin
  
    K := Random(SL.Count-1);
    SLWords.Add(SL[K]);
  end;
  
  Memo1.Lines.Assign(SLWords);

 Timer1.Enabled := True;

end;

procedure TForm5.Memo2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  I : Integer;
begin
  
  if Key = VK_RETURN then begin
    for I := 0 to Memo2.Lines.Count-1 do begin
      if Memo3.Lines.Count < Memo2.Lines.Count then
        Memo3.Lines.Add('');

      if Memo2.Lines[i] = SLWords[i] then
        Memo3.Lines[i] := 'Верно'
      else
        Memo3.Lines[i] := 'Неверно.Надо - '+SLWords[i] ;
        if  Memo3.Lines.Count = 6 then 
        memo2.Enabled:=false;

end;

end;
 end.

Admin: Используем теги для оформления кода!

при вводе последнего слова должен появлятся Form c отчётом т.е Правельных - ? , неправильных ?-такое количество .как мне это сделать????ПОмогите...