[Alegun]

Код:

function pdc(ds: string): boolean;
begin
 Result:= Pos('"Online"', ds) > 0;
end;