Memo1

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    memo1: TMemo;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{Очистка}
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
 end;
 
{Вывод текста}
procedure TForm1.Button1Click(Sender: TObject);
 
 var i, u:integer;
 S,P,L,K,Q,W:string;
 
begin
memo1.Lines.Add(combobox1.text);
memo1.Lines.Add(edit2.text);
memo1.Lines.Add(edit1.text);
memo1.Lines.Add(edit3.text);
 
 S:=Memo1.Lines[3];{Стаж}
 K:=Memo1.Lines[4];{Возраст}
 P:=Memo1.Lines[6];
 Q:=Memo1.Lines[7];
 L:=Memo1.Lines[9];
 W:=Memo1.Lines[10];
 
{Возраст}
Label8.Caption:=strtofloat(K+Q+W)/3;
 
 
end;
{Сброс}
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Clear;
label4.Caption:=#0;
 
end;
 
end.

k := '25';
q := '33';
w := '88';
ShowMessage(FloatToStr(StrToFloat(k+q+w)));
ShowMessage(FloatToStr(StrToFloat(k)+StrToFloat(q)+StrToFloat(w)));

 S:=Memo1.Lines[3];{Стаж}
 K:=Memo1.Lines[4];{Возраст}
 P:=Memo1.Lines[6];
 Q:=Memo1.Lines[7];
 L:=Memo1.Lines[9];
 W:=Memo1.Lines[10];

 S:=Memo1.Lines[3];{Стаж}
 K:=Memo1.Lines[4];{Возраст}
 P:=Memo1.Lines[6];
 Q:=Memo1.Lines[7];
 L:=Memo1.Lines[9];
 W:=Memo1.Lines[10];

memo1.Lines.Count-1>=14