uvoz excel tabele u delphi

Code:

procedure TFTest.UExcel;
var
sImeFajla: String;
x, y: integer;
FWorkSheet, VExcel : Variant;
begin
sImeFajla := OcitajIni('LokacijaExcel');
VExcel := CreateOleObject('Excel.Application');
VExcel.Visible := false;
VExcel.Workbooks.Open(sImeFajla+'ip.xlsm');
FWorkSheet := VExcel.ActiveSheet;

DSetPopisRadnika.First;
while not DSetPopisRadnika.Eof do
begin
VExcel.Sheets.Add;
FWorkSheet := VExcel.ActiveSheet;

y:=7;
x:=7;
FWorkSheet.Cells[y, x] := sGodina;

y:=7;
x:=10;
FWorkSheet.Cells[y, x] := Edit3.Text;

y:=3;
x:=1;
FWorkSheet.Cells[y, x] := 'NAZIV/IME I PREZIME:';
inc(y);
FWorkSheet.Cells[y, x] := 'ADRESA:';
inc(y);
FWorkSheet.Cells[y, x] := 'MB ILI MBG:';

y:=3;
x:=4;
FWorkSheet.Cells[y, x] := DataModuleNeki.DSetNeki.FieldByName('NAZIV').AsString;
.......
.......
.......
VExcel := unAssigned;