First Name, Last Name, Firm (if exist), Address1 and Address 2 (if exist), City State Zip and Country as Memo

Example:

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

var

lsLIne: String;

lsState: String;

lsZip: String;

begin

Memo1.Lines.Clear;

lsLine:= Individual['FName']+' '+Individual['LName'];

  Memo1.Lines.Add (lsLine);

lsLine:= Individual ['Firm'];

if lsline <> ''then

  Memo1.Lines.Add (lsLine);

lsLine:= Individual ['BAddress1'];

  Memo1.Lines.Add (lsLine);

lsLine:= Individual ['BAddress2'];

if lsline <> ''then

  Memo1.Lines.Add (lsLine);

lsLine:= Individual ['BCity'];

lsState:= Individual['BSt'];

  lsLine:= lsLine +', '+lsState;

lsZip:= Individual['BZipCode'];

if lsZip <> '' then

  lsLine:= lsLine+ ' '+lsZip;

Memo1.Lines.Add(lsLine);

end;