var
  S: array[0..79] of char;
begin
  { Set to all spaces }
  FillChar(S, SizeOf(S), Ord(' '));
end;    var
  S: array[0..79] of char;
begin
  ZeroMemory(@S, SizeOf(S));
end