Se puede hacer un else en un While not query1.eof Do?

[ecfisa]

Hola negrokau.

Declararlo como un método como te indica Casimiro es la mejor opción ya que no importa la posición donde ubiques el código de la función:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages,...;

type
  TForm1 = class(TForm)
    ...
  private
     function ExisteCodigo(const Value: string): Boolean;
  public
  end;

var
  Form1: TForm1;

implementation  {$R *.dfm}

// aca el resto de tu codigo

function TForm1.ExisteCodigo(const Value: string): Boolean;
begin
 with TQuery.Create(nil) do
  try
    DatabaseName:= 'C:\SGC v1.0\Database\SGC_v1.GDB';
    SQL.Text:= 'SELECT * FROM FACTURAS WHERE COD_BARRA =:DATO';
    ParamByName('DATO').AsString:= Value;
    Open;
    Result:= not IsEmpty;
    Close;
  finally
    Free;
  end;
end;

// o, si preferís aca el resto de tu codigo

end.

Otra opción es declararlo como función, pero para ello, la cabecera debe estar declarada antes del método o función que la invoque. Para asegurar el tiro, inmediatamente después a la declaración Implementation, de ese modo la función, tendrá alcance a todo código subyacente a ella:

Código Delphi [-]
...
Implementation

function ExisteCodigo(const Value: string): Boolean;
begin
  ...

Saludos.