키움증권 오픈 API+ 이용하기 03

엑슬론님의 주식시스템트레이더를 바탕으로 하여
어렵사리 수동매수 까지는 구현했네요.
이것 이용해 돈벌어볼까?????
// 주문

procedure TForm1.Button23Click(Sender: TObject);

var

거래구분: string;

매매구분: integer;

주문가격: Integer;

주문수량: Integer;

종목코드: string;

원주문번호: string;

iRet: Integer;

begin

거래구분 := KOACode.hogaGb.Names[cb거래구분.ItemIndex]; // code 분리

매매구분 := StrToInt(KOACode.orderType.Names[cb매매구분.ItemIndex]); // code 분리

주문가격 := StrToInt(e주문가격.text);

종목코드 := e종목코드.text;

주문수량 := StrToIntdef(e주문수량.text,0);

iRet := KHOpenAPI1.SendOrder('주식주문', GetScrNum(), cb계좌.Items[cb계좌.ItemIndex], 매매구분, 종목코드, 주문수량, 주문가격, 거래구분, 원주문번호);

if iRet = 0

then 실시간메모.Items.Add('주문이 전송 되었습니다')

else 실시간메모.Items.Add(Format('주문이 전송 실패 하였습니다. [에러= %d] ',[iRet]));

end;