[ViNT]

Примерно так:

var
 RS:RecordStore;
 S:String;
 idx:integer;
begin
  RS:=OpenRecordStore('sms');
  S:=ReadRecordStoreEntry(RS,1);
  if S<>'sent' then
  begin
   //Здесь код отправки смс
   idx:=AddRecordStoreEntry(RS,'sent');
  end;
  CloseRecordStore(RS);