var
  lChar: Char;
  lLine: string;
  lMultiLine: string;
begin
  lChar := 'a';
  lLine := 'some text';
  lMultiLine := 'some text' + #13#10 + 'on two lines';