請問該如何在procedure內呼叫procedure

我希望能在TForm1.DBLookupComboBox3CloseUp這個procedure內呼叫TForm1.DBGrid5DrawColumnCell

這個procedure。

procedure TForm1.DBLookupComboBox3CloseUp(Sender: TObject); //按照組別查詢病患
begin
Table1.Filtered:=False;
Label6.Caption:=DBLookupComboBox3.KeyValue;
if DBGrid5.Fields[4].value=DBLookupComboBox3.KeyValue
then
begin
//Table1.Filter:='Class=''' DBLookupComboBox3.KeyValue '''';
//Table1.Filtered:=True;

end;

end;

procedure TForm1.DBGrid5DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
//Table1.Filtered:=False;
if DBGrid5.Fields[4].value=DBLookupComboBox3.KeyValue
then
begin
Table1.Filter:='Class=''' DBLookupComboBox3.KeyValue '''';
Table1.Filtered:=True;
end
else
begin
//DBGrid5.DefaultDrawing;
end;

//Table1.Filtered:=False;
end;

procedure TForm1.DBLookupComboBox3CloseUp(Sender: TObject); //按照組別查詢病患
begin
Table1.Filtered:=False;
Label6.Caption:=DBLookupComboBox3.KeyValue;
if DBGrid5.Fields[4].value=DBLookupComboBox3.KeyValue
then
begin
//Table1.Filter:='Class=''' DBLookupComboBox3.KeyValue '''';
//Table1.Filtered:=True;

end;

end;

簡單吧...