[Alegun]

Сообщение от Grynyuk

...Не работает что то

Для проверки добавьте на форму Label1 (наглядная демонстрация)

Код:

procedure TForm1.btn2Click(Sender: TObject);

...
Label1.Caption:= '';
c:= 255;
for i := 1 to Length(edt1.text) do
 begin
  Label1.Caption:= Label1.Caption + ' : ' + IntToStr(byte(edt1.text[i]));
  if c > byte(edt1.text[i]) then
   begin
    c:= byte(edt1.text[i]);
    b:= i;
   end;
 end;
 edt2.text:= edt1.text[b] + ' : ' + IntToStr(byte(edt1.text[b]));
...