xls中的单元格内容总是有空格 ( 积分: 100 )

下面是取出单元格数据的末尾总是有空格,所以查找函数返回总是为false。使用VarToStr转变和Trim去不掉空格
......怎么回事

for i:=3 to ADOPlantInfo.RecordCount+2 do
begin
xlsStr:=Trim(VarToStr(xlSheet.Cells[i,1].Value));
if ADOPlantInfo.Locate('电厂名称', xlsStr,[]) then
xlSheet.Cells[i,7]:=ADOPlantInfo.FieldByName('电量').AsString
else
begin
xlSheet.Cells[i,7]:='0';
end;
end;