아래 소스처럼 바코드스캐너로 내용을 읽어 들어 중복검사를 하는프로그램을 구현 중입니다.
근데 내용을 읽어 들이면 소문자로 나타납니다. 이것을 대문자로 나타나게 변환을 어떻게 하는지?

그리고 입력이 되면 마우스로 버튼을 눌러야만 내용이 메모로 이동되는데 이것을
마우스와 함께 키보드의 Enter 키를 눌러도 내용이 넘을 갈 수 있도록 하려면
어떻게 구현을 해야 되는지 소스수정 좀 해주세요..
초보라 넘 답답합니다..수고하세요..

procedure TBarcodeForm.btnInputClick(Sender: TObject);
var
  I,Strpos : integer;
  Bigyo : string;
begin
        If EdReader.Text = '' then
    begin
          ShowMessage('다시 입력하세요 !!');
    EdReader.SetFocus;
    end
  else
    begin
      if strtoint(lcount.caption) <> 0 then
       begin
        for I := 0 to strtoint(lcount.caption)-1 do
           begin
            strpos := pos('     --> ', mmlist.lines[i]);
            bigyo := copy(mmlist.Lines.Strings[i],0,strpos-1);
           if bigyo = EdReader.Text then
            begin
              showmessage('중복된 데이타 입니다. 다시 확인 바랍니다.!');
                                            EdReader.Text := '';
                                            EdReader.SetFocus;
              exit;
            end;
           end;
       end;
                     mmlist.Lines.Add(Edreader.text + '     --> ' + FormatDateTime('YYYY"-"MM"-"DD Am/Pm HH"-"NN SS', Now));
                    EdReader.Text := '';
                    EdReader.SetFocus;
                    lcount.Caption := intTostr(mmlist.lines.count);
    end;
end;