Работа функции

[Patsan]

Помогите пожалуйста решить проблемку.

Имеется функция...
Нужно чтоб она действовала как процедура, то есть проводила операции над передающимся ей параметром без возвращения значения, а в Result возвращалось что-то другое.
По типу такого:

function lc(s:string):String; 
begin 
s := lowercase(s); 
Result := s[1]; 
end; 

procedure some_proc(); 
var 
word:String; 
begin 
word := 'STRING'; 
lc(word); 
showmessage(word+': '+lc(word)); 
end;

И эта программка должна вывести сообщение вида "string: s".

Я думаю, тут надо использовать указатели, но я в них полный ноль, а хорошей инфы не нашел (очень буду благодарен, если кто-нибудь предоставит такую). Вообще кто его знает, как делать, собственно, поэтому я сюда и обращаюсь =).

П.С.: Код смысла никакого не несет, это я импровизировал =) Но ситуация именно такая.
Заранее благодарен за помощь.

 

[zubr]

function lc(var s:string):String;

И будет тебе счастье.

 

[Patsan]

zubr
Спасибо! Я то думал