우선은 코딩이 맞는거 같은데 실행하면 프로그램이 죽어버리더라구요

ADO자체 버그인지.. 일반적인 Table에서는 잘 되는게 ADO에서는 안됩니다.

제가 잘못한거지 확이하시고 글좀 올려주십시요

Var St,Cmon:Extended;
begin
Try
    Screen.Cursor := crHourGlass;
    St:=0;
    Cmon:=0;
    Inmony:=0;
    Outmony:=0;
    Sum:=0;
    With ADOTable1 do Begin
         DisableControls;
         First;
         While Not Eof do begin
                   Edit;
                   Cmon:= Cmon+(FieldByName('M_InMoney').ASFloat - FieldByName('M_OutMoney').AsFloat);
                   FieldByName('M_Money').AsFloat := Cmon;
                   Post;
                   Next;
         End;
    End;
    St:=ANumEdit1.Value;
    ANumEdit2.Text:=IntToStr(ADOTable1.RecordCount);
finally
    ADOTable1.EnableControls;
    Screen.Cursor := crDefault;
    ShowMessage('계산끝');
end;