Es porque tienes que declararlas como variables, eso es lo que sucede;
Código Delphi
[-]procedure TFBuscaArticulo.BitBtn1Click(Sender: TObject);
Var CodParte, Cod_Parte: string;
begin
CodParte := ATArticulosCodParte.AsString;
Cod_Parte := ATArticulosCodParte.AsString;
Close;
end;
procedure TFBuscaArticulo.BitBtn2Click(Sender: TObject);
Var CodParte, Cod_Parte: string;
begin
CodParte := '';
Cod_Parte := '';
Close;
end;
y por favor trata de usar las etiquetas.
Saludos.