감사 합니다.
어느 부분이 잘못이 있는지 잘 모르겠습니다.
많은 답변을 부탁 드립니다.
에러
[Error] TCommon.pas(27): Function needs result type

호출 부분
ColorRead1(FCusOrder,Kg1,SCells[0,Row],SCells[2,Row],SCells  
                 [3,Row]);


선언 부분(이부분에서 에러 발생)
function ColorRead1(const AcptForm:TForm; AcptKG:TKdhGrid; AcptData:string; Acptsize:string; AcptColor:string);

실행 부분
function ColorRead1(const AcptForm:TForm;AcptKG:TKdhGrid; AcptData:string; Acptsize:string; AcptColor:string);
begin
with DM1.QColoRead1 do
     begin
     Close;
     ParamByNAme('p1').asstring:=AcptData;
     ParamByNAme('p2').asstring:=Acptsize;
     open;
     fColorInq1:=TfColorInq1.Create(Application);
     i3:=0;
     while not eof do
           begin
           i3:=i3+1;
           FColorInq1.kg1.SCells[0,i3]:=Fields[0].asstring;
           FColorInq1.kg1.NCells[1,i3]:=50;
           FColorInq1.kg1.NCells[2,i3]:=150;
           FColorInq1.kg1.NCells[3,i3]:=250;
           FColorInq1.kg1.SCells[4,i3]:=Fields[1].asstring;
           FColorInq1.kg1.SCells[5,i3]:=Fields[2].asstring;
           Next;
           end;
     if (fColorInq1.ShowModal=mrOk) then
        Result:=Fields[0].asstring
     else
        Result:=AcptColor;
        Close;
        fColorInq1.Free;
     end;  

end;

[Error] TCommon.pas(27): Function needs result type