Помогите, с такой проблемой:
При помощи процедуры ToDDE выкидываю данные в Excel.
В среде Windows2000 работает отлично,
а в Windows98 в Excel выкидываются не все данные...
Почему и что можно сделать?

procedure ToDDE(ISheet: IxlWorksheet;NumberCol,NumberField: Integer);
//Процедура формирования в Excel Листов по кодам групп
var xlDDE: TxlDDEClient;
IR1, IR2, IRange: IxlRange;
Buff: string;
TemNumbStr: Integer;
begin
Buff := '';
TemNumbStr:= 0;
DmData.QueryGroup.First;
while not DmData.QueryGroup.EOF do
begin
Buff := Buff + FieldToStr(DmData.QueryGroup.Fields[NumberField]);
DmData.QueryGroup.Next;
if not DmData.QueryGroup.EOF then
Buff := Buff + #10; //переход к следующей строке
end;
IDispatch(IR1) := ISheet.Cells.Item[StartRow + TemNumbStr, NumberCol+1];
IDispatch(IR2) := ISheet.Cells.Item[StartRow + TemNumbStr + DmData.QueryGroup.RecordCount - 1, NumberCol+1];
IRange := ISheet.Range[IR1, IR2];
xlDDE := TxlDDEClient.Create({Self}Nil);
try
if xlDDE.SetLink('EXCEL', ISheet.Name) then
xlDDE.xlPokeData(OLEVariant(IRange).Address[ReferenceStyle:=xlR1C1], PChar(Buff));
finally
xlDDE.CloseLink;
xlDDE.Close;
xlDDE.Free;
buff:='';
end;

end;

Очень жду...