Выделить подстроку, которая соответствует записи вещественного числа

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    a:real;
begin
s:=Edit1.Text;
a:=StrToFloatDef(s,0);
if a<>0 then Edit2.Text:=FloatToStr(a)
else ShowMessage('Это не число!');
end;

for i:=1 to Length(st) do
    begin
      if ((st[i]=',') or (st[i]='.')) then
        begin
          if ((st[i-1]='0..9') or (st[i-1]='-') or (st[i-1]='+')) and ((st[i+1]='0..9') or (st[i+1]='-') or (st[i+1]='+')) then
            begin
              PoleVivoda.Lines.Add(st);
              PoleVivoda.Lines.Add('Yes');
            end;
        end
      else PoleVivoda.Lines.Add('No');
    end;

while i<=Length(st) do
    begin
      if ((st[i]=',') or (st[i]='.')) then
        begin
            a:=i;
            for j:=a downto 1 do
              begin
                if (st[j]='0..9') then
                  begin
                    for k:=a to Length(st) do
                      begin
                        if (st[i]='0..9') then Showmessage('OK!');
                      end;
                  end;
               end;
        end;
    end;

while i<=Length(st) do
    begin
      if ((st[i]=',') or (st[i]='.')) then

//Конечно такое будет работать вовсе не так как ты задумал:
if (st[j]='0..9') then ...
 
//Правильно вот так:
if (st[j] in ['0'..'9']) then ...

const
cf=['0'..'9'];
zn=['.',','];
тогда в программе просто if s[i] in cf then .....

const
  Numeric=['0'..'9'];
  Mark=[',','.'];
  Symbol=['-','+'];

procedure TGlavnayaForma.KnopkoPodshetClick(Sender: TObject);
var
  st:string;
  n,i,nst,j,k:integer;
  a,p,p1:Integer;
  float:Extended;
  errorPos:Integer;
begin
  nst:=PoleVvodaIVivoda.ItemIndex;
  st:=PoleVvodaIVivoda.Items[nst];
  i:=1;
  a:=0;
  p:=pos('-',st);
  p1:=Pos('+',st);
  if (p=1) or (p1=1) or (st[1] in Numeric) then
  begin
  while i<=Length(st) do
    begin
      if st[i] in Mark then //если есть точка или запятая
        begin
          a:=i;
          if (st[a-1] in Numeric) and (st[1+1] in Numeric) then //если до запятой и после неё число
            begin
              while st[a+1] in Numeric do
                begin
                  for j:=a-1 downto 1 do //иду влево (не знаю как в while сделать)
                    begin
                      if st[j] in Numeric then
                        continue
                      else
                        break;  
                    end;
                  a:=a+1;
                end;
              ShowMessage('OK');  
            end
          else
            begin
              ShowMessage('NO!'); //если нет знаков
              Exit;
            end;
        end
      else
        begin
          ShowMessage('NO!');
          Exit;
        end;
      i:=i+1; 
    end;
    end
    else
      ShowMessage('No');
    {a:=StrToFloat(st);
    if a<>0 then PoleVvodaIVivoda.Items.Add(FloatToStr(a))
      else ShowMessage('Это не число!');}
end;

nst:=PoleVvodaIVivoda.ItemIndex;
  st:=PoleVvodaIVivoda.Items[nst];
  a:=StrToFloat(st);
  if a<>0 then PoleVvodaIVivoda.Items.Add(FloatToStr(a))
    else ShowMessage('Это не число!');

unit uMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TfrmMain = class(TForm)
    edStrSrc: TEdit;
    Label1: TLabel;
    btnFind: TButton;
    edStrRes: TEdit;
    Label2: TLabel;
    procedure btnFindClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  frmMain: TfrmMain;
 
implementation
 
uses StrUtils;
 
{$R *.dfm}
 
function FindFloatNum(aStrSrc : String; var aStrRes : String) : Boolean;
var
  //Позиция на которой находится запятая.
  PosPnt : Integer;
  //Позиция на которой находится первая цифра искомого числа.
  Pos1 : Integer;
  //Позиция на котой расположена последняя цифра искомого числа.
  Pos2 : Integer;
 
  StrInt : String;
  StrFrac : String;
begin
 
  aStrRes := '';
 
  //Ищем дясятичную точку - это знак запятая: ','
  PosPnt := Pos(',', aStrSrc);
 
  //Если не нашли.
  if PosPnt = 0 then Result := False;
 
  //Если нашли.
 
  //Определяем есть ли целая часть.
  //Для этого "шагаем" влево от запятой. И шагаем до тех пор, пока не встретим
  //первую "не цифру", либо пока не дойдём до начала строки.
 
  Pos1 := PosPnt; //Это позиция на которой находится запятая.
 
  while Pos1 > 1 do begin //Т. е. перед очередным шагом слева должен быть хотябы один символ.
    //Шаг влево.
    Pos1 := Pos1 - 1;
    if not (aStrSrc[Pos1] in ['0'..'9']) then begin
      //Раз нашли не цифру, то возвращаемся на шаг правее.
      Pos1 := Pos1 + 1;
      //И выходим из цикла.
      Break;
    end;
  end;
 
  //Еcли цифры левее запятой не нашлись, то полагаем, что число не найдено.
  if Pos1 = PosPnt then begin
    Result := False;
    Exit;
  end;
 
  //Раз цифры левее запятой обнаружились, то они принадлежат целой части.
  //При этом номер позиции, на которой расположена первая цифра искомого числа, равна Pos1.
 
  //Теперь определяем есть ли дробная часть.
  //Начинаем шагать вправо от запятой. Шагаем до тех пор, пока не встретим
  //первую "не цифру", либо пока не дойдем до конца строки.
 
  Pos2 := PosPnt; //Это позиция на которой находится запятая.
 
  while Pos2 < Length(aStrSrc) do begin //Т. е. перед очередным шагом справа должен быть хотябы один символ.
    //Шаг вправо.
    Pos2 := Pos2 + 1;
    if not (aStrSrc[Pos2] in ['0'..'9']) then begin
      //Раз нашли не цифру, то возвращаемся на шаг левее.
      Pos2 := Pos2 - 1;
      //И выходим из цикла.
      Break;
    end;
  end;
 
  //Еcли цифры правее запятой не нашлись, то полагаем, что число не найдено.
  if Pos2 = PosPnt then begin
    Result := False;
    Exit;
  end;
 
  //Раз цифры правее запятой обнаружены, то они принадлежат дробной части.
  //При этом номер позиции, на которой расположена последняя цифра искомого числа, равна Pos2.
 
  //Теперь выделяем обнаруженное число.
 
  aStrRes := Copy(aStrSrc, Pos1, Pos2 - Pos1 + 1);
  Result := True;
 
end;
 
procedure TfrmMain.btnFindClick(Sender: TObject);
var
  StrRes : String;
begin
  edStrRes.Text := 'Не обнаружено';
  if FindFloatNum(edStrSrc.Text, StrRes) then begin
    edStrRes.Text := StrRes;
  end;
end;
 
end.