procedure TfrmMeisai.EditSuryoEnter(Sender: TObject);
begin
  //数量入力前処理（カンマを外す）
  EditSuryo.Text := StringReplace(
                           EditSuryo.Text,
                           ',','',[rfReplaceAll, rfIgnoreCase]);
  EditSuryo.SelectAll;
end;
procedure TfrmMeisai.EditSuryoExit(Sender: TObject);
begin
  //数量入力後処理（カンマ編集）
  if EditSuryo.Text = '' then
    EditSuryo.Text := '0'
  else
    EditSuryo.Text := FormatFloat('#0',
                           StrToFloat(EditSuryo.Text));
end;
procedure TfrmMeisai.EditTankaEnter(Sender: TObject);
begin

//単価入力前処理（カンマを外す）
  EditTanka.Lines.Strings[0] := StringReplace(
                           EditTanka.Lines.Strings[0],
                           ',','',[rfReplaceAll, rfIgnoreCase]);

  EditTanka.SelectAll;
end;
procedure TfrmMeisai.EditTankaExit(Sender: TObject);
begin
  //単価入力後処理（カンマ編集）
  if EditTanka.Lines.Strings[0] = '' then
    EditTanka.Lines.Strings[0] := '0.00'
  else
    EditTanka.Lines.Strings[0] := FormatFloat('#0.00', 
                            StrToFloat(EditTanka.Lines.Strings[0]));
end;