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
lsLine:= Individual ['Address 1'];
lsLine:= Individual ['Address 2'];
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'];
end;