Te explico cuando trabajas con funciones y procedimientos debes separar los parametros de las variables, en tu caso tienes tres variables y ningun parametro por lo que deberia quedar algo asi
Código Delphi
[-]function buscar:string;
var
s:string;
posicion:longint;
o:boolean
ahora te puedo ayudar a estructurar mejor tu funcion pero dime que esperas de resultado de ella, que te devuelva el string que consiguio o un simple verdadero en caso de haberlo encontrado, porq segun tu codigo no se devuelve nada, en ese caso te convendria un procedimiento
pero todos son conjeturas hasta que nos explique mejor loq ue necesitas