function LCase(strTxt:string):string; var i:integer; begin for i := 1 to length(strTxt) do if (strTxt[i] >= 'A') and (strTxt[i] <= 'Z') then inc(strTxt[i],32); LCase := strTxt; end;