hi i have done following code to get data from table to String grid combo box and pass it to colums, but once i select data in first row its ok if i go to second row and select the items from combobox it does not show only shows first item which i select only, please check the attach images and code what i did please

hi i have done following code to get data from table to String grid combo box and pass it to colums, but once i select data in first row its ok if i go to second row and select the items from combobox it does not show only shows first item which i select only, please check the attach images and code what i did please

procedure TfQuotation.StringGrid1GetEditorProp(Sender: TObject; ACol,
ARow: Integer; AEditLink: TEditLink);
begin
with stringgrid1 do
case acol of 0:
begin
ClearComboString;
Combobox.Items.Add('HARDWARE');
Combobox.Items.Add('SERVICE');
end;
end;

end;
//================================================================
procedure TfQuotation.StringGrid1ComboDropDown(Sender: TObject; ARow,
ACol: Integer);
begin
with stringgrid1 do
case acol of 2:
begin
ClearComboString;

if (cells[0, arow] = 'HARDWARE') then
begin
QItem.Close;
QItem.Open;
QItem.First;
repeat
Combobox.Items.Add(QItem.FieldByName('Description').AsString);
QItem.Next;
until QItem.Eof;

end;
//======================================================================

if (cells[0, arow] = 'SERVICE') then
begin
QService.Close;
QService.Open;
QService.First;
repeat
Combobox.Items.Add(QService.FieldByName('ServiceName').AsString);
QService.Next;
until QService.Eof;
end;
//======================================================================
end;
end;
end;
//==========================================================================

procedure TfQuotation.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
with stringgrid1 do
case acol of 2:
begin
ClearComboString;

if (cells[0, arow] = 'HARDWARE') then
begin
QItem.Close;
QItem.Open;
QItem.First;
repeat
Combobox.Items.Add(QItem.FieldByName('Description').AsString);
QItem.Next;
until QItem.Eof;

end;
//======================================================================

if (cells[0, arow] = 'SERVICE') then
begin
QService.Close;
QService.Open;
QService.First;
repeat
Combobox.Items.Add(QService.FieldByName('ServiceName').AsString);
QService.Next;
until QService.Eof;
end;
//======================================================================
end;
end;
end;

//========================================================================

procedure TfQuotation.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: string);
var
Item: string;
begin
with stringgrid1 do
case acol of
2:
if StringGrid1.Cells[0, arow] = 'HARDWARE' then
begin
Item := '';
Item := StringGrid1.Cells[2, ARow];

QItem.Close;
QItem.SQL.Clear;
QItem.SQL.Add('Select * from Item');
QItem.SQL.Add(Format('Where Description = ''%s''', [Item]));
QItem.Open;

StringGrid1.Cells[1, ARow] := QItem.FieldByName('PartNo').AsString;
StringGrid1.Cells[4, ARow] := QItem.FieldByName('Avrcost').AsString;
StringGrid1.Cells[5, ARow] := QItem.FieldByName('SellingPrice').AsString;
end;

end;


with stringgrid1 do
case acol of
2:
if StringGrid1.Cells[0, arow] = 'SERVICE' then
begin
Item:= '';
Item:= StringGrid1.Cells[2, ARow];
QService.Close;
QService.SQL.Clear;
QService.SQL.Add('Select * From Service');
QService.SQL.Add(Format('Where ServiceName = ''%s''',[Item]));
QService.Open;
StringGrid1.Cells[1, ARow] := QService.FieldByName('ServiceID').AsString;
StringGrid1.Cells[4, ARow] := QService.FieldByName('Servicecost').AsString;
StringGrid1.Cells[5, ARow] := QService.FieldByName('SellingPrice').AsString;
end;
end;


end;