Incompatible types: 'Char' and 'string'

 if vleSubst.Cells[1, i]=s then label1.caption:=strtofloat(used[s])  ;

unit UnitCheck;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, XPMan, StdCtrls, Grids, ValEdit, ShellAPI;
 
type
   TRusDstAlphabet = array [Char] of Char;
   TfmCheck = class(TForm)
    VleSubst: TValueListEditor;
    mmDecryptMessage: TMemo;
    mmEncryptMessage: TMemo;
    btnDecryptMessage: TButton;
    xpmnfst1: TXPManifest;
    SaveDialog: TSaveDialog;
    mm1: TMainMenu;
    miAboutN1: TMenuItem;
    miOpen: TMenuItem;
    miSave: TMenuItem;
    miSaveAs: TMenuItem;
    miAboutN4: TMenuItem;
    miQuit: TMenuItem;
    miAboutN6: TMenuItem;
    miCheck: TMenuItem;
    miAboutN8: TMenuItem;
    miAbout: TMenuItem;
    miHelp: TMenuItem;
    OpenDialog1: TOpenDialog;
    stringgrid1: TStringGrid;
    Label1: TLabel;
    procedure miOpenClick(Sender: TObject);
    procedure miSaveClick(Sender: TObject);
    procedure miSaveAsClick(Sender: TObject);
    procedure miCheckClick(Sender: TObject);
    procedure miAboutClick(Sender: TObject);
    procedure miHelpClick(Sender: TObject);
    procedure btnDecryptMessageClick(Sender: TObject);
   procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
       RusDstAlphabet: TRusDstAlphabet;
    procedure GenRearrangment;
    function  ValidateRearrangement: Boolean;
    function  UpCaseRus(Ch: Char): Char;
    function  LowCaseRus(Ch: Char): Char;
    procedure RecalcAlphabet(nKey: Integer);
    function  EncryptDecryptString(strMsg: String): String;
  public
    { Public declarations }
  end;
 
var
  fmCheck: TfmCheck;
  FileWork: String;
 
implementation
 
{$R *.dfm}
 
uses unitAbout;
 
// функция генерации случайной перестановки
procedure TfmCheck.GenRearrangment;
var
  Ch, c: char;
  // нужен для определения встречался ли символ ранее
  WasGen: array [Char] of Boolean;
begin
  // заполняем массив значением False
  FillChar(WasGen, SizeOf(WasGen), False);
  for Ch := 'А' to 'Я' do
    begin
      // генерируем случайный символ до тех пор, пока
      // не будет получен еще не сгенерированный
      repeat
        c := Chr(Ord('А') + random(32));
      until not WasGen[c];
      // помечаем, что символ сгенерирован
      WasGen[c] := True;
      vleSubst.Values[Ch] := c;
          end;
end;
 
 // проверяет корректность перестановки введенной пользователем
function TfmCheck.ValidateRearrangement: Boolean;
var
  i: Integer;
  s: String;
  Used: array [Char] of Boolean;
begin
  Result := False;
  FillChar(Used, SizeOf(Used), False);
  for i := 1 to vleSubst.RowCount - 1 do
    Begin
      // символ единственный в строчке?
      s := vleSubst.Cells[1, i];
      if (Length(s) <> 1) then
        Exit;
      // символ - буква русского языка?
      s[1] := UpCaseRus(s[1]);
      if not (s[1] in ['А'..'Я']) then
        Exit;
      // уже встречался ранее?
      if Used[s[1]] then Exit else
        label1.caption:=s;
      Used[s[1]] := True;
    End;
  Result := True;
end;
 
function TfmCheck.UpCaseRus(Ch: Char): Char;
begin
  if Ch = 'ё' then Ch := 'Е';
  if Ch in ['а'..'я'] then Dec(Ch, 32);
  Result := Ch;
end;
 
function TfmCheck.LowCaseRus(Ch: Char): Char;
begin
  if Ch = 'Ё' then Ch := 'е';
  if Ch in ['А'..'Я'] then Inc(Ch, 32);
  Result := Ch;
end;
 
procedure TfmCheck.RecalcAlphabet(nKey: Integer);
var
  Ch: Char;
  i: Integer;
begin
  if Length(mmDecryptMessage.Text) <> 0 then   showmessage('ПОЛУЧИЛОСЬ!!!')
  else showmessage('введите текст для шифровки');
  // предварительно все символы в алфавите шифрования
  // соответствуют символам из незашифрованного алфавита
  for Ch := Low(RusDstAlphabet) to High(RusDstAlphabet) do
    RusDstAlphabet[Ch] := Ch;
  // формируем алфавит отдельно для каждого из регистров букв
  // здесь для верхнего
  for i := 1 to vleSubst.RowCount - 1 do
    RusDstAlphabet[vleSubst.Cells[nKey, i][1]] := vleSubst.Cells[1 - nKey, i][1];
  // здесь для нижнего
  for i := 1 to vleSubst.RowCount - 1 do
    RusDstAlphabet[LowCaseRus(vleSubst.Cells[nKey, i][1])] :=
        LowCaseRus(vleSubst.Cells[1 - nKey, i][1]);
end;
 
function TfmCheck.EncryptDecryptString(strMsg: String): String;
var
  i: Integer;
begin
  // преобразуем строчку посимвольно
  for i := 1 to Length(strMsg) do
    strMsg[i] := RusDstAlphabet[strMsg[i]];
  Result := strMsg;
end;
 
procedure TfmCheck.miOpenClick(Sender: TObject);
begin
 if OpenDialog1.Execute then
   begin
     mmDecryptMessage.Lines.LoadFromFile(OpenDialog1.FileName);
     FileWork:=OpenDialog1.FileName;
    end;
end;
 
procedure TfmCheck.miSaveClick(Sender: TObject);
begin
   if SaveDialog.Execute then  mmEncryptMessage.Lines.SaveToFile(Filework+'.txt');
end;
 
procedure TfmCheck.miSaveAsClick(Sender: TObject);
begin
  SaveDialog.FileName := FileWork;
    if SaveDialog.Execute then
      begin
        FileWork := SaveDialog.FileName;
        mmEncryptMessage.Lines.SaveToFile(FileWork);
      end;
end;
 
procedure TfmCheck.miCheckClick(Sender: TObject);
var
  i: Integer;
begin
  // проверяем корректность ввода перестановки
  if ValidateRearrangement then
    begin
      // создаем алфавит преобразования открытого текста
      RecalcAlphabet(0);
      // предотвращаем перерисовку компонента до тех пор, пока не
      // зашифруем все строчки сообщения
      mmEncryptMessage.Lines.BeginUpdate;
      // очищаем текстовый редактор
      mmEncryptMessage.Clear;
      // шифруем открытый текст построчно
      for i := 0 to mmDecryptMessage.Lines.Count - 1 do
        mmEncryptMessage.Lines.Add(EncryptDecryptString(mmDecryptMessage.Lines[i]));
      // разрешаем перерисовку компонента
      mmEncryptMessage.Lines.EndUpdate;
    end
 else
    MessageDlg('Ошибка: символы подстановки заданы не верно', mtError, [mbOk], 0);
end;
 
procedure TfmCheck.miAboutClick(Sender: TObject);
begin
  fmAbout.show;
end;
 
procedure TfmCheck.miHelpClick(Sender: TObject);
begin
     if FileExists(ExtractFilePath(Application.ExeName)+'Справка.chm') then
  ShellExecute(Handle,nil,Pchar(ExtractFilePath(ParamStr(0))+'Справка.chm'),nil,nil,SW_SHOW)
  else
  MessageDLG('Файл справки не найден',mtWarning,[mbCancel],0);
end;
 
procedure TfmCheck.btnDecryptMessageClick(Sender: TObject);
var
  i: Integer;
begin
  mmEncryptMessage.Text:='';
  // проверяем корректность ввода перестановки
  if ValidateRearrangement then
    begin
      // создаем алфавит преобразования открытого текста
      RecalcAlphabet(0);
      // предотвращаем перерисовку компонента до тех пор, пока не
      // зашифруем все строчки сообщения
      mmEncryptMessage.Lines.BeginUpdate;
      // очищаем текстовый редактор
      mmEncryptMessage.Clear;
      // шифруем открытый текст построчно
      for i := 0 to mmDecryptMessage.Lines.Count - 1 do
        mmEncryptMessage.Lines.Add(EncryptDecryptString(mmDecryptMessage.Lines[i]));
      // разрешаем перерисовку компонента
      mmEncryptMessage.Lines.EndUpdate;
    end
  else
    MessageDlg('Ошибка: символы подстановки заданы не верно', mtError, [mbOk], 0);
 
end;
 
procedure TfmCheck.FormCreate(Sender: TObject);
var
  Ch: char;
    c: char;
begin
randomize;
  for c := 'А' to 'Я' do
    StringGrid1.Cells[0, Ord(c)-Ord('А')]:=c;
  // инициализация редактора значений
  for Ch := 'А' to 'Я' do
    vleSubst.InsertRow(Ch, '', True);
  // генерация случайной перестанвки
  GenRearrangment;
end;
 
e

function TfmCheck.ValidateRearrangement: Boolean;
var
  i: Integer;
  s: String;
  Used: array [Char] of Boolean;
begin
  Result := False;
  label1.caption := '';
  FillChar(Used, SizeOf(Used), False);
  for i := 1 to vleSubst.RowCount - 1 do
    Begin
      // ñèìâîë åäèíñòâåííûé â ñòðî÷êå?
      s := vleSubst.Cells[1, i];
      if (Length(s) <> 1) then
        Exit;
      // ñèìâîë - áóêâà ðóññêîãî ÿçûêà?
      s[1] := UpCaseRus(s[1]);
      if not (s[1] in ['À'..'ß']) then
        Exit;
      // óæå âñòðå÷àëñÿ ðàíåå?
      if Used[s[1]] then
        label1.caption := label1.caption + s[1]
      else
        Used[s[1]] := True;
    End;
  Result := True;
end;