Es muy simple, por ejemplo, cuando se pulse en el botón "Facturar", haces antes una sencilla comprobación.
Código Delphi
[-]btFacturar.Click;
begin
qry.sql.text := 'select facturado from tbAlbaranes where serienumero="A1"';
qry.execute;
if qry.fields[0]='1' then
showmessage('El albarán ya está facturado')
else
Facturar( 'A1' );
end;
procedure Facturar( cAlbaran:string);
begin
...
...
albaran.facturado := 1;
end;