Query insertar dato en un Edit

[ecfisa]

Hola Basi.

Te pongo un ejemplo simple:

Código Delphi [-]
procedure TForm1.tuQueryAfterScroll(DataSet: TDataSet);
begin
  with DataSet do
  begin
    Edit1.Text := FieldByName('CAMPO_1').AsString;
    Edit2.Text := FieldByName('CAMPO_2').AsString;
    Edit3.Text := IntToStr(FieldByName('CAMPO_3').AsInteger);
    ...
  end;
end;

En este caso se aprovecha el evento AfterScroll del query para ir mostrando los campos en los Edits a medida que se va cambiando de registro activo.

Saludos.