Código Delphi [-]procedure TeMark_ConsuCli_form.Edit1Change(Sender: TObject); begin Datamodule1.Client.FindNearest([Edit1.Text]); end;
procedure TeMark_ConsuCli_form.Edit1Change(Sender: TObject); begin Datamodule1.Client.FindNearest([Edit1.Text]); end;