var eine Funktion übergibt wert nicht

[gandime]

Hi,
also ich habe eine Funktion:

Delphi-Quellcode:

function split_filename(s_filename,s_dir,s_name:string):boolean;
begin
  dir:='aaa';
  s_name:='bbb';
end;

diese Funktion rufe ich so auf:

Delphi-Quellcode:

var
  s_dir,s_name:string;
begin
  split_filename('C:\blabla\a.txt',s_dir,s_name);
  showmessage(s_dir); 
  showmessage(s_name);[

aber sowohl s_dir als auch s_name =''

warum?

mfg
gandime