[lmikle]

Код:

uses Classes;

var
  sl : TStringList;
  i : integer;
  s : String;
begin
  sl := TSTringList.Create;
  sl.LoadFromFile('File1.txt');
  s := sl.Text;
  For i := 1 To Length(s) Do
    If s[i] in ['a'..'z'] Then
      s[i] := chr(ord('A') + ord(s[i]) - ord('a'));
  sl.Text := s;
  sl.SaveTofile('File2.txt');
  sl.Free;
end;

А то у тебя вообще какая-то ересь написана, полная путаница в именах параметров и переменных, отсутсвует функция UpCase, использованная в коде и т.д.