oid OnGeminiResponse;

{

  try

    metinMemo.Lines.Clear;

    

    if (RestObj.StatusCode == 200)

    {

      metinMemo.Lines.Add('--- PLAN OLUŞTURULDU ---');

      metinMemo.Lines.Add(RestObj.Response); 

    }

    else

    {

      metinMemo.Lines.Add('Hata Oluştu. Kod: ' + IntToStr(RestObj.ResponseHeaders.Count));

      metinMemo.Lines.Add(RestObj.Response);

    }

  except

    ShowMessage('Bir hata oluştu: ' + LastExceptionMessage);

  }

}

void PlanOlustur;

var

  Url, Prompt,CleanPrompt JsonBody: String;

{

  if ((SecilenKita <> '') && (SecilenGun <> '')) 

  {

    metinMemo.Lines.Clear;

    metinMemo.Lines.Add(SecilenKita + ' bölgesi için ' + SecilenGun + ' süreli plan hazırlanıyor...');

    metinMemo.Lines.Add('Lütfen bekleyin...');

    

  

    Prompt = 'Bana ' + SecilenKita + ' bölgesinde, ' + SecilenGun + ' sürecek, gün gün ayrılmış, detaylı ve Türkçe bir gezi rehberi oluştur. Maddeler halinde olsun.';

    RestObj.BaseURL = ' https://generativelanguage.googleapis.com/v1/models/gemini-1.5-flash:generateContent?key=" rel="nofollow - https://generativelanguage.googleapis.com/v1/models/gemini-1.5-flash:generateContent?key= ' + Google_API_Key;

    RestObj.Method = rmPost;

    RestObj.ContentType = 'application/json';

    RestObj.AddBody('{"contents": [{"parts": [{"text": "' + Prompt + '"}]}]}','application/json' );

    RestObj.Execute;

  }

}

Gemini' a bağlanmak istiyorum ancak yukarıdaki kod çalışmıyor. Hata ile ilgili yardım edebilir misiniz?

var

  MyForm : TCLForm;

  metinMemo : TclMemo;

  btnGonder : TclProButton;

  RestObj : TclRest;

  Google_API_Key : String;

  

  SecilenKita, SecilenGun : String; 

void OnGeminiResponse;

{

  try

    if (RestObj.StatusCode == 200)

    {

      metinMemo.Lines.Add('--- BAŞARILI ---');

      metinMemo.Lines.Add(RestObj.Response); 

    }

    else

    {

      metinMemo.Lines.Add(' HATA');

      metinMemo.Lines.Add('Kod: ' + IntToStr(RestObj.StatusCode));

      metinMemo.Lines.Add('Cevap: ' + RestObj.Response);

    }

  except

    ShowMessage('Cevap işlenirken hata oluştu: ' + LastExceptionMessage);

  }

}

void PlanOlustur;

var

  Prompt, JsonBody : String;

{

  SecilenKita = 'Avrupa';

  SecilenGun = '3 gün';

  if ((SecilenKita <> '') && (SecilenGun <> '')) 

  {

    metinMemo.Lines.Clear;

    metinMemo.Lines.Add('Gemini sunucusuna bağlanılıyor...');

    

    Prompt = 'Bana ' + SecilenKita + ' bölgesinde, ' + SecilenGun + ' sürecek bir gezi planı yap.';

    

    

    RestObj.BaseURL = ' https://generativelanguage.googleapis.com/v1beta/models/gemini-1.5-flash:generateContent?key=" rel="nofollow - https://generativelanguage.googleapis.com/v1beta/models/gemini-1.5-flash:generateContent?key= ' + Google_API_Key;

    

    RestObj.Method = rmPost;

    

    JsonBody = '{ "contents": [{ "parts": [{"text": "' + Prompt + '"}] }] }';

    

    RestObj.AddBody(JsonBody, 'application/json'); 

    

    RestObj.Execute;

  }

  else

  {

    ShowMessage('Lütfen kıta ve gün bilgilerini kontrol edin.');

  }

}

{

  MyForm = TCLForm.Create(Self);

  

  Google_API_Key = 'BURAYA_API_KEY_YAZIN'; 

  

  metinMemo = MyForm.AddNewMemo(MyForm, 'metinMemo', '');

  metinMemo.Align = alClient;

  

  btnGonder = MyForm.AddNewProButton(MyForm, 'btnGonder', 'PLAN OLUŞTUR');

  btnGonder.Align = alTop;

  btnGonder.Height = 60;

  btnGonder.Margins.Bottom = 10;

  

  MyForm.AddNewEvent(btnGonder, tbeOnClick, 'PlanOlustur');

  RestObj = TclRest.Create;

  RestObj.OnCompleted = 'OnGeminiResponse'; 

  

  MyForm.Run;

}

Kodu inceleyebilir misin? 
Örnek olarak yazdım 

ekleyerek kodu çalıştırabildim. Eklediğiniz kodu da projeye ekleyerek deneyeceğim. Teşekkürler.