[ralf8727]

Código Delphi [-]
procedure TModificar1.Button1Click(Sender: TObject); 
begin   
  if edit5.Text<>'' then  
  begin     
    with dm1.Q_cacreedor do     
    begin       
      active:=false;       
      sql.Clear;       
      sql.add('select * from Cacreedor');       
      sql.add('where nacredor=:acreedor');
      Parameters.ParamByName('acreedor').Value:=edit5.text
      active:=true;       
      if recordcount=0 then          
        messagedlg('No se encontro el ningun movimiento, intente de nuevo',mtinformation,[mbok],0);           
      begin            
        combobox2.Text:=fieldbyname('tipoacre').asstring;            
        edit6.Text:=fieldbyname('fecha').asstring;            
        edit10.Text:=fieldbyname('monto').asstring;          
      end;      
    end;   
  end;
end;

pasa el edit5 como un parametro