Error "printing in progress"

[jmlifi]

utilizo delphi 7 y este es el codigo que tengo:

procedure ActivaImpresora(const s: string);
var
Device, Name, Port : array[0..100] of char;
DevMode : THandle;
a :string;
q : integer;
begin
with printer do begin
if s<>'' then begin s='LANIER LD135 PCL 5e'
a:=printers.Names[0]; //me devuelve vacio a='' prueba realizada
printer.PrinterIndex := printers.IndexOf(s); // AQUI DA EL ERROR
end
else
PrinterIndex := -1;
GetPrinter(Device, Name, Port, DevMode);
SetPrinter(Device, Name, Port, 0);
end;
end;

[Coco]

que valor tiene s cuando ingresa a la funcion,porque si tiene un valor <> '' nunca va a asignarle el valor 'LANIER LD135 PCL 5e'.

Saludos.

[jmlifi]

s tiene 'LANIER LD135 PCL 5e' cuando ingresa en la función