Address1 and Address2 on two lines as Memo

Example:

Use with Calc Tab for Memo1 field – right click On Print and choose New:

var

lsLine: String;

begin

Memo1.Lines.Clear;

lsLine := Individual['Address1'];

Memo1.Lines.Add(lsLine);

lsLine := Individual['Address2'];

if lsLine <> '' then

 Memo1.Lines.Add(lsLine);

end;