[ART]

Делаю так:
Function TForm1.SetRange(sheet:variant;range:string;value_: variant ):boolean;
begin
SetRange:=true;
try
E.Sheets[sheet].Cells[x, y].Value := value_;
except
SetRange:=false;
end;
End;