Что возвращает функция?

Function SearchLine (HeadUcas:UcasPtr; Num,ii:integer):boolean;
var
  HlamPtr: UcasPtr;
begin
  while HeadUcas<>nil do
    begin
      if HeadUcas.vertex=Num then
        begin
          HlamPtr:=HeadUcas.left;
          while HlamPtr<>nil do
            begin
              if HlamPtr.vertex=ii then
                begin
                  SearchLine:=False;
                  Exit{(SearchLine)}; //Возвратиться можем здесь
                end;
              HlamPtr:=HlamPtr.next;
            end;
          SearchLine:=True;
          Exit{(SearchLine)};//...а можем здесь
        end;
      HeadUcas:=HeadUcas.next;
    end
end;

function ShowText : String;
begin
  ShowMessage(Result);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
begin
  S := '12345';
  S := ShowText;
end;