Hjælp til Delphi 5

Jeg er ved at lave et faktura program i Delphi. Og det er meningen at man skal kunne indtaste vareantal og varepris. Som der efter skal lægges sammen og vises i et memo felt.. Det kan jeg godt finde ud af, men til sidst skal jeg lave en total, som lægger alle de tal sammen som står i memofeltet... Det fatter jeg ikke!!!! Sådan ser det ud (se total:=?????? nederst i programmet! Hvad der skal stå her vil jeg gerne vide?):

unit fakpas;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Edit6: TEdit;
    Button1: TButton;
    Button2: TButton;
    FAKTURA: TMemo;
    BitBtn1: TBitBtn;
    ComboBox1: TComboBox;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
  var  k,v:integer;
        total,pris:real;
        p,vareart,post,adresse,navn,s,s2,s3,s4,s5:string;
procedure TForm1.Button1Click(Sender: TObject);
begin
v:=strtoint(edit5.text);
k:=strtoint(edit6.text);

pris:=k*v;
p:=format('%f', [pris]);

vareart:=(combobox1.text);
s4:=format('%s', [vareart]);

faktura.lines.add(s4+p);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
navn:=(edit1.text);
s:=format('%s', [navn]);

adresse:=(edit2.text);
s2:=format('%s', [adresse]);

post:=(edit3.text);
s3:=format('%s', [post]);
faktura.lines.add(s);
faktura.lines.add(s2);
faktura.lines.add(s3);

end;
procedure TForm1.Button2Click(Sender: TObject);
begin
total:=?????????????????????????????????;
s5:=format('%f', [total]);
faktura.lines.add(s5);
end;
end.