Add(MainForm,2953706,105,105)
{
 Width=172
 Height=116
}
Add(Button,6625603,147,105)
{
 Left=10
 Top=5
 Caption="123"
 Data=String(123)
 link(onClick,13096746:doEvent,[])
}
Add(Button,15174905,147,154)
{
 Left=10
 Top=45
 Caption=" 123"
 Data=String( 123)
 link(onClick,7079734:doEvent,[])
}
Add(Math,12691931,210,154)
{
 Op2=1
 link(onResult,653158:doText,[])
}
Add(Math,10066747,210,105)
{
 Op2=1
 link(onResult,13521503:doText,[])
}
Add(Label,13521503,259,105)
{
 Left=85
 Top=10
}
Add(Label,653158,259,154)
{
 Left=85
 Top=45
}
Add(Debug,13096746,189,105)
{
 link(onEvent,10066747:doOperation,[])
}
Add(Debug,7079734,189,154)
{
 link(onEvent,12691931:doOperation,[])
}

Add(Edit,5473322,91,105)
{
 Left=165
 Top=55
 link(onEnter,7260478:doConvert,[])
}
Add(Edit,5119407,224,112)
{
 Left=270
 Top=60
}
Add(Convertor,7260478,154,112)
{
 Mode=10
 link(onResult,5119407:doText,[])
}

Add(MainForm,2953706,98,112)
{
 Width=173
 Height=116
 BorderStyle=1
 Position=1
}
Add(Edit,5473322,147,112)
{
 Left=10
 Top=10
 TabOrder=1
 Text=" 123"
 ClearAfterEnter=1
 link(onEnter,7260478:doConvert,[])
}
Add(Edit,5119407,231,119)
{
 Left=85
 Top=10
 TabOrder=-1
 Text=""
}
Add(Convertor,7260478,189,119)
{
 Mode=10
 link(onResult,5119407:doText,[])
}
Add(Edit,529902,147,168)
{
 Left=10
 Top=50
 TabOrder=2
 Text=" 123"
 ClearAfterEnter=1
 link(onEnter,391494:doConvert,[])
}
Add(Edit,1054332,231,175)
{
 Left=85
 Top=50
 TabOrder=-1
 Text=""
}
Add(ConvertorEx,391494,189,175)
{
 Mode=10
 link(onResult,1054332:doText,[])
}

function Str2Double( const S: String ): Double; // я подал строку "  -123" - два пробела минус 123
var I: Integer;
    M, Pt: Boolean;
    D: Double;
    Ex: Integer;
begin
  Result := 0.0;
  if S = '' then Exit; // а если S="     " - 5 пробелов ?
  M := FALSE;
  I := 1;
  if S[ 1 ] = '-' then // а у меня "-" в S[3]
  begin
.....
.....
end;