[[eduarcol]]

var cveart, cve_art: string;

Esas variables deben ser globales.

Te tratare de explicar el concepto porq veo que lo llevas perdido. El asunto es el siguiente, tienes un formulario donde muestras informacion de un articulo determinado llamemoslo FProdutos, en este tienes un boton llamado busqueda cuyo codigo es:

Código Delphi [-]
procedure TFbusart.btnaceptarClick(Sender: TObject);
begin
   Fbusart := TFbusart.Create(Self);
   try
      Fbusart.ShowModal;
   finally
      if fbusart.cve_art <> '' then
         adoqarticulos.Locate('cveart',fbusart.cve_art,[]);
      Fbusart.Free;
   end;
end;

Aqui lo que haces es abrir el formulario de busqueda llamado Fbusart, y en este formulario devuelves el codigo seleccionado por el usuario en una variable en tu caso cve_art. Este es el codigo que devuelve el codigo seleccionado, ubicado en el boton aceptar y cancelar respectivamente de la pantalla de busqueda fBusArt:

Código Delphi [-]
procedure TFbusart.btnaceptarClick(Sender: TObject);
begin
   cve_art:= ATArticuloscveart.AsString
end;
 
procedure TFbusart.btncancelaClick(Sender: TObject);
begin
   cve_art := '';
close;
end;

fijate que estoy utilizando una sola variable cve_art, muy distinto a cveart, pero en ningun momento la declare dentro del procedimiento local, esto se debe a que su declaracion esta en la seccion de variables del formulario de busqueda fbusart, algo asi

Código Delphi [-]
public
   {public declarations}
   cve_art: String;

Espero haberte aclarado la situacion y ayudarte a encontrar el error, que esta dado por las distintas variables que utilizas y las declaras en donde no es