zed

https://support.skype.com/en/faq/FA214/what-is-the...

some features of the API will stop working with Skype for desktop. For example, delivery of chat messages using the API will cease to work. However, we will be extending support for two of the most widely used features – call recording and compatibility with hardware devices – until we determine alternative options or retire the current solution.

Вот тут описывается один странный метод, как можно слушать сообщения скайпа без API: habrahabr.ru/post/235007

TSpinEdit

Вот так:

NewTab := TTabSheet.Create(PageControl1);
  with NewTab do
  begin
    PageControl := PageControl1;
    Caption := 'Закладка ' + IntToStr(PageControl1.PageCount);
  end;

Род Стивене: Delphi Готовые алгоритмы

Разбиваете график на 5 частей, описываете каждую часть некоторой функцией y = f(x) в математическом выражении. Затем, для каждой математической функции пишите функцию на паскале с её реализацией. Итого у вас получится 5 функций. Ну и в конце, пишите функцию main, в которой в зависимости от входного значения X, вызываете одну из тех 5 функций и печатаете результат.

Вот такой несложный алгоритм.

Кто то может просто дать рабочий и протестированный код, который работает у вас?

Легко: https://bitbucket.org/sas_team/sas.planet.src/src/...

Только сомневаюсь, что оно вам сильно поможет. Загрузка файла из интернета - элементарнейшая задача и есть +100500 способов её решения.

Используйте IdLogEvent: www.cyberforum.ru/delphi-networks/thread305184.html

procedure Sort(var a,b,c: Integer);
var
  a1,b1,c1: Integer;
begin
  a1:=a; b1:=b; c1:=c;
  if (a<=b) and (a<=c) and (b<=c) then begin a:=a1;b:=b1;c:=c1; end else
  if (a<=b) and (a<=c) and (c<=b) then begin a:=a1;b:=c1;c:=b1; end else
  if (b<=a) and (b<=c) and (a<=c) then begin a:=b1;b:=a1;c:=c1; end else
  if (b<=a) and (b<=c) and (c<=a) then begin a:=b1;b:=c1;c:=a1; end else
  if (c<=a) and (c<=b) and (a<=b) then begin a:=c1;b:=a1;c:=b1; end else
  if (c<=a) and (c<=b) and (b<=a) then begin a:=c1;b:=b1;c:=a1; end;
end;

Если абстрагироваться от языка программирования и языка текста, то вот пример: Частотный анализатор английских слов, написаный на.... Посмотрите в код, может почерпните для себя какие-то идеи.

Похоже, что здесь именно то, что вы ищите: 4coder.org/delphi-source-code/21

Используйте TFileStream:

var
    out: TFileStream;
    in: TMemoryStream;
    i: Integer;
begin
    in := TMemoryStream.Create;
    out := TFileStream.Create(...);    
    try
        for i := 0 to files_count - 1 do begin            
            in.Clear;
            in.LoadFromFile(....);            
            out.WriteBuffer(in.Memory^, in.Size);
        end;
    finally
        in.Free;
        out.Free;
    end;
end;