Lazarus convertir Boolean a String

Hace unos segundos me he visto en la necesidad de convertir un dato Boolean en uno tipo String y como no sabia si lazarus incorporaba o tenia esta función, he hecho una búsqueda en internet y me he encontrado con esta función muy simple y socorrida:

Código:

function booltostr(n: boolean):string; begin   if n = true then result := 'true'   else result:='false'; end;

Supongo que no hace falta explicar que para utilizarla podemos hacer una llamada tipo booltostr():

Código:

procedure TForm1.CheckDesbloquearSalidasChange(Sender: TObject); begin     if (CheckDesbloquearSalidas.Checked = false) then     begin      ShowMessage('Ahora el estado de las salidas es: '+ booltostr(CheckDesbloquearSalidas.Checked));     end; end;

Este artículo basado en este post:

http://www.clubdelphi.com/foros/showthread.php?t=11292