[vigi]

Всем огромное спасибо за помощь.
Вопрос снят нашел идеальное решение!!!
вот предлагаю может пригодится:

Код:

procedure GetStrParam(s: String; ParamN: byte; var Param: String);
var m,i,j: Integer;
begin
m:=0; j:= 0; Param:= '';
s:= Trim(s);
for i:=1 to Length(s) do
  begin
  if s[i] = ' ' then
    begin
    if j=0 then
      begin
      Inc(m); j:=1;
      if m>ParamN then exit;
      end else j:=0;
    end
    else
    if (j=1) and (m=ParamN-1) then Param:= Param+s[i];
  end;
end;

function GetSecondParam(s: String; var Res: Integer): boolean;
var Param: String;
begin
GetStrParam(s,2,Param);
Result:= TryStrToInt(Param,Res);
end;

procedure TForm1.BClick(Sender: TObject);
var Rezz: Integer;
begin
if GetSecondParam('amur 11367 03-21 20-52-49.rcd',Rezz) then ShowMessage(IntToStr(Rezz));
end;

Еще раз всем спасибо!!!!!!