<p>以下の例は、Form に DBGrig と Label を 追加し、DBGridに OnkeyUp イベントを作成しています。</p>
<pre class="brush: delphi" title="DBGrid.OnkeyUpのサンプル">procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Pos: integer;
begin
  for Pos := 0 to Pred(DBGrid1.ControlCount) do
    if (DBGrid1.Controls[Pos] is TInPlaceEdit) then
    begin
      with TInPlaceEdit(DBGrid1.Controls[Pos]) do
      begin
        Label1.Caption := 'Text = ' + Text;
      end;
    end;
end;
</pre>