Buat Program SMS pake borland delphi memang susah susah susah kalau buat saya sebagai beginer Delphi. sedikt saja saya mau share ke kalian gmana seh coding nya di delphi 7.
Pertama kalian harus install komponen Com Port > saya tidak akan menjelaskan lebih detail tentang instal komponen COM PORT
langsung aja deh codingnya :D tapi jangan di ketawain yah karena ini coding kampung karena saya tidak pernah punya pengalaman bekerja di software House, jadi nggak tau standarisasi hukum pengcodingan gmana dalam dunia persilatan.
Dan saya menggunakan HP SE T610 maklum cuma itu yang saya punya dan koneksi ke komputer menggunakan bantuan gigi biru

langsung dehhhhhhhh

procedure TForm1.Button13Click(Sender: TObject);
var
smsc, tipe, pengirim, bentuk, skema, tanggal, batas, isi, nomer, s,str : string;
sok,sERROR:string;
n : textfile;
waktu: TDateTime;
i,X,Z : integer;
begin
Label3.Caption :=TIMETOSTR(NOW);
Z:=1;

ComPort1.WriteStr('AT'+#13#10); //1. cek koneksi
waktu := now;
repeat
comport1.ReadStr(str,comport1.inputcount);
s := str;
until (pos('OK', s) > 0) or (pos('ERROR', s) > 0) or (SecondsBetween(waktu,now) > 180);

ComPort1.WriteStr('AT+cmgf=1'+#13#10);//2. cek supert text atau tidak
waktu := now;
repeat
comport1.ReadStr(str,comport1.inputcount);
s := str;
until (pos('OK', s) > 0) or (pos('ERROR', s) > 0) or (SecondsBetween(waktu,now) > 180);

ComPort1.WriteStr('AT+cmgw="'+nomor telpnya+'"'+#13#10); //3 . masukan nomor telp yang di uju
Sleep(500); // kasih delay karena modem biasanya responya lambretta
ComPort1.WriteStr('pesanya disiniiiii'+#26);//4. pesannya nehhh
waktu := now;
comport1.ReadStr(str,comport1.inputcount);



for i := 0 to 1 do begiN
ComPort1.WriteStr('AT+cmss=1'+#13#10); //5. kirim dehhh
comport1.ReadStr(str,comport1.inputcount);
waktu := now;
repeat
comport1.ReadStr(str,comport1.inputcount);
until (pos('OK', STR) > 0) or (pos('ERROR', STR) > 0) or (SecondsBetween(waktu,now) > 180);


ComPort1.WriteStr('AT+cmgd=1'+#13#10); //5. hapus deh dari HP comport1.ReadStr(str,comport1.inputcount);
waktu := now;
repeat
comport1.ReadStr(str,comport1.inputcount);
until (pos('OK', s) > 0) or (pos('ERROR', s) > 0) or (SecondsBetween(waktu,now) > 180);
END;
end;


Selesai dehhhh
Coding ini hanya saya ambil dari beberapa sumber dan saya sempurnakan atau malah tambah di rusakan yah.
anyway semoga membantu

coding ini setelah anda pastikan kalau HP anda sudah terhubungan dengan komputer