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['First Name']+' '+Individual['Last Name'];

  Memo1.Lines.Add (lsLine);

lsLine:= Individual ['Firm'];

if lsline <> ''then

  Memo1.Lines.Add (lsLine);

lsLine:= Individual ['Address 1'];

  Memo1.Lines.Add (lsLine);

lsLine:= Individual ['Address 2'];

if lsline <> ''then

  Memo1.Lines.Add (lsLine);

lsLine:= Individual ['City'];

lsState:= Individual['State'];

  lsLine:= lsLine +', '+lsState;

lsZip:= Individual['Zip Code'];

if lsZip <> '' then

  lsLine:= lsLine+ ' '+lsZip;

Memo1.Lines.Add(lsLine);

lsLine:= Individual ['Country'];

if lsline <> ''then

  Memo1.Lines.Add (lsLine);

end;