Ich hätte es so gemacht:
Delphi-Quellcode:
Function S2B(S:String):BOOLEAN;
begin
if STRUPPER(PCHAR(S)) = 'TRUE' then
Result := TRUE
else if STRUPPER(PCHAR(S)) = 'FALSE' then
Result := FALSE else
{ Fehlerroutine }
end;
Aber warum erstellst du die Funktionen, die gibt's doch schon!?