function GetComputerNameS:string;
var
  NameBuff : array[0..255] of Char;
  NameSize : Cardinal;
begin
  NameSize := Length(NameBuff);
  if GetComputerName(NameBuff,NameSize)
    then Result := NameBuff
    else Result := '';
end;

function GetUserNameS:string;
var
  NameBuff : array[0..255] of Char;
  NameSize : Cardinal;
begin
  NameSize := Length(NameBuff);
  if GetUserName(NameBuff,NameSize)
    then Result := NameBuff
    else Result := '';
end;

Delphiの標準関数(Trim、TrimLeft、TrimRight)は全角の空白を取り除いてくれません。 全角空白を取り除くためには、ループしてこの文字を見つけて取り除く ...
なんて面倒なことをしなくても StringReplace関数を使用して、全角スペースを半角スペースに変換してTrim関数でスペースを除去します。

function TrimMB(S:string):string;
begin
  Result:=Trim( StringReplace( S,'　','  ',[rfReplaceAll] ) ); //全角スペース→半角スペース×2個
  Result:=StringReplace( Result,'  ','　',[rfReplaceAll] );    //半角スペース×2個→全角スペースに戻す
end;