How To Copy From Excel To TableGrid

procedure Form1_TableGrid2_OnKeyDown (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
var
    sl: TStringList;
    arrFields: array of string;
    i: integer;
begin

    if (Ctrl) and (Key=86) then // Ctrl+V
    begin
        sl := TStringList.Create;
        sl.Text := ClipboardGet; // get text from clipboard

        // insert to database
        for i := 0 to sl.Count-1 do
        begin
            arrFields := SplitString(sl[i], #9); // tab separator
            if Length(arrFields)=2 then 
            begin
                SQLExecute('INSERT INTO groups (groupname) VALUES('''+escape_special_characters(arrFields[1])+''')');
            end;
        end;
        sl.Free;
    end;
    Form1.TableGrid2.dbUpdate;
end;