Llamar una fución(parametros)

[Stevenmn]

Buenas, lo que pasa es que tengo un problema desde ayer, hice una función para buscar en un memo, esta bien y todo, pero no se como llamarla, hace muy poco empece en delphi y pues estoy buscando a ver....


Esta es la funcion:

function buscar(s:string;posicion:longint;o:boolean):string;
begin

o := InputQuery('Buscar..','Escriba la palabra a buscar',s);
posicion := Pos(s,form1.Memo1.Text)-1;

form1.Memo1.SelStart := posicion;
form1.Memo1.SelLength := Length(s);
form1.Memo1.SetFocus;

end;

y esta es la llamada:

procedure TForm1.Buscar1Click(Sender: TObject);
begin
buscar('no se que poner aqui);
end;

El error es:

value assigned o never used

Es con la variable o