前面讲得很好，错误主要是调用了未赋值的数组、循环退出标志选择不妥，另外在Delphi中，字符串本身就是一个字符数组，下面代码给你一个解决问题的新思路。

function DeleteSpc(ss: String): String;

var

i: Integer;

begin

Result := '';

i := 1;

while i <= Length(ss) do begin

if ss[i] <> ' ' then Result := Result + ss[i];

Inc(i);

end;

end;